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J.   INTRODUCTION 


This  manual  is  the  p r o o r a m  description  for  an  interac- 
tive oranhics  p  a  e  k  a  o  e  interfacing  a  Vector  General  Graph- 
ics Display  Svstpp  and  a  PDP-11/50  user.  The  Vector  Gen- 
eral Graphics  Display  System  (vector  general)  is  an  in- 
teractive Graphics  cathode  ray  tube  (CRT)  display  that  is 
connected  to  the  PDP-11/50  computer  via  a  modified  D  R  1  1  -  B 
interface.  The  display  interacts  with  an  on-line  user  hy 
displaying  pictorial  information  on  the  surface  of  the 
cathode  ray  tube  and  by  accepting  inputs  from  external 
control  oevices.  The  inputs  are  requested  and  processed 
by  computer  proorans  that  alter  and  maintain  the  output 
picture  being  presented  to  the  user. 

This  manual  assumes  that  the  reader  is  familiar  with 
the  C-programming  1 anpuaoe  and  the  UNIX  operating  system. 
The  terminoloqy  used  herein  without  explanation  refers  to 
the  features  and  registers  in  the  display  unit.  A  more 
detailed  description  can  he  found  in  the  Vector  General 
Graphics  Display  Unit  Reference  Manual  (V'G  101 056).  A 
user's  manual  is  published  separately. 

The  software  desiqn  can  be  divided  into  five  major 
cat  egor  i  es : 

1 .  Modi f  icat  i  ons  to  UNIX 

2.  System  Routines 


3  .   M emery  Allocation 

4  .   User  interrupt  Hon  tines 

5  .   User  Interface  Routines 

The  remaining  sections  of  this  manual  describe  these  divi- 
sions. References  are  repeatedly  made  to  object  lists, 
object  buffer  lists,  and  element  lists.  Those  formats  can 
be  f  o  u  n  d  in  Appendix  A .  Many  external  global  variables 
are  used  by  the  various  display  routines.  These  variables 
are  described  in  Appendix  n .  The  many  "  o  e  f i  n e  s "  are  de- 
tailed in  Apoendix  C  . 

Ihe  oeneral  design  for  the  display  software  is  such 
that  all  routines,  defines,  and  external  names  (UNIX 
modifications  and  system,  routines  excluded)  are  archived 
in  a  system  library,  /lib /lib v. a.  The  user  can  then  in- 
clude this  file  at  compile  time  and  have  access  to  the 
entire  display  software  for  his  use.  As  a  result,  the 
convention  has  been  anonted  that  all  routines  and  global 
variables  begin  with  " v  a " .  This  avoids  collision  of  name 
definition  if  the  user  avoios  names  starting  with  "vq". 


I  I  .   N'ODIF  ICAT  ION'S  TO  UNIX 


The  memory  allocation  scheme  of  UNIX  had  to  be  modi- 
fied to  permit  the  Vector  G^n^ral  Graphics  Display  System 
to  accpss  the  display   list.    A   real-time   system   call, 


r  t  i  m  e  ( )  »  has  been  added  to  make  the  calling  process  real- 
time by  relocation  the  nrocess  continuously  within  a 
thirty-two  thousand  throe  hundred  sixty-eight  byte  memory 
block.  Ihe  memory  allocation  of  the  process  is  not  al- 
low ed  to  cross  a  memory  address  that  is  a  multiple  of 
thirty-two  thousand  three  hundred  sixty  - e  i oh t  .  This  al- 
lows the  vector  general  d  i  s  d  1  a  y  to  programmatically  ad- 
dress any  of  the  thirty- two  thousand  three  hunored  sixty- 
eight  memory  addresses  without  resetting  the  extended 
memory  bits.  The  r  t  i  ™  e (  )  call  also  sets  the  nrocess 
priority  so  that  the  operating  system  will  not  swap  the 
process  onto  the  disk.  This  locks  the  nrocess  into  a 
fixed  memory  ores.  The  real-time  process  can  then  dynami- 
cally modify  the  display  list  while  the  vector  general  is 
continuously  accessing  the  same  display  list  via  its 
direct  memorv  access  channel. 

Because  of  the  requi  rement  to  lock  a  real-time  process 
into  a  fixed  memory  area*  the  operating  system  permits 
only  a  limited  number  of  simultaneous  real-time  processes. 
If  the  required  memory  area  is  allocate d  to  another  n o n - 
swapable  nrocess  or  the  maximum  number  of  real-time 
processes  has  been  previously  al located,  the  requested 
process  is  not  made  real-time  and  an  error  is  returned  to 
the  caller. 


Ill  .   3YSTE.V,  ROUTINES 


The  vector  general  has  been  d  i  v  i  a  e  d  into  six  minor 
devices.  This  simplifies  the  communication  between  the 
user  a  no  t'>e  device  driver.  Lach  minor  device  has  associ- 
ated with  it  a  flag  that  is  set  in  response  to  the  user's 
ooenO  command.  Since  the  vector  general  is  a  dedicated 
device1  r  any  attempt  to  share  the  vector  general  between 
users  or  use  the  vector  oeneral  wit  ft  out  opening  all  minor 
devices  will  result  in  an  error  to  the  caller.  After  all 
six  minor  devices  have  been  opened*  a  single  vector  oen- 
eral system  f laq»  v a  lock,  is  set.  lhis  system  lock  is 
checked  prior  to  any  read  or  write  operation.  In  addition 
the  process  is  made  real-time,  the  user  process  number  is 
retained  in  vgoroc,  and  t  r>  e  display  is  flagged  as  iule. 
The  user  process  number  is  used  to  c  a  s  s  the  vector  general 
interrupts  to  the  user  via  psipnal () •  The  aisolay  idle 
flag  allows  the  initial  display  list  to  start  the  vector 
general  out  prevents  subseguent  display  lists  from  abnor- 
mally terminating  a  previous  display  list. 

Initial  i  ?at  i  on  of  user  controlled  parameters  is  usual- 
ly the  next  reouirement.  When  the  user  issues  a  write() 
command  via  minor  device  two,  V  G  C  i\i  T  R  L  #  the  contents  of  the 
user's  buffer  is  interpreted  as  the  refresh  reference 
count.  Inis  determines  the  number  of  vector  aeneral  frame 
clock   interrupts  permitted  before  reinitialization  of  the 


display  list. 

The  vector  general  subroutine  stack  option  permits 
accessino  non-contiguous  display  lists.  however/  the  vec- 
tor general  must  have  the  memory  acoress  of  any  non- 
contiguous display  lists  encoded  within  a  continuous 
displav  list.  This  requires  the  user  to  have  access  to 
the  real  PDP-11  m e  m o  r  y  addresses  of  his  d  i  s  o 1  a  y  lists. 
The  mapping  of  user  space  to  real  memory  addresses  is 
accomplished  by  the  user's  issuance  of  a  wri te()  commano 
folio  wen  by  a  r  e  a  d  (  )  command  via  rr-jnor  device  ?  e  r  e  /  V  G . 
The  write  command  stores  the  real  P  D  P -  1  1  memory  address  of 
the  user  buffer  in  the  variable  vgaodr.  The  user's  reed 
command  oassns  the  value  of  the  real  PDP-11  merory  address 
to  the  user  via  the  passed  routine. 

'.'.  hen  dynamically  modifying  d  i  s  p  1  a  y  lists/  the  memory 
od dress  encoded  in  a  display  must  often  be  converted  to  a 
user  soace  address  for  referencing  a  user's  displav  list. 
This  capability  is  provided  by  a  reedO  command  using 
minor  device  five/  V  G  C  N  V  T  .  The  base  block  number  of  the 
user's  process  obtained  by  the  vostrategy()  routine  is 
passed  to  the  user  via  passe (). 

'M-ien  the  user  has  created  the  disolav/  he  must  pass 
the  address  of  the  display  list  to  the  vector  aeneral  . 
The  user's  writeO  command  using  minor  oevice  one/  VGDISP/ 
accomplishes  this  task.  The  lower  sixteen  bits  of  the 
address  are  stored  in  b a d d r 1 .  The  upper  two  bits  are 
encoded   in   baodrx.    If   the   display    has    not    been 


initialized/  the  routine  vqstart ()  sends  the  address  to 
the  vector  general  ana  starts  the  vector  general 's  opera- 
tion. If  the  display  has  b^pn  initialized/  the  new  ad- 
dress in  baddrl  represents  a  new  display  list  to  no  used 
after  completing  t^e  active  display  list. 

The  vector  general  operates  independent  of  the  user 
process  after  being  niven  a  display  list.  However,  com- 
munication with  the  system  routines  is  maintained  via 
interrupts.  A  frame  clock  interrupt  signal  is  generated 
every  8.33  milliseconas  and  a  device  interrupt  is  generat- 
ed whenever  the  user  operates  one  of  the  enabled  peri- 
pheral devices.  The  frame  clock  interrupt  increments  a 
counter  until  the  counter  eguals  the  refresh  reference 
count.  fit  that  time  the  display  is  reinitiated  by  a  call 
to  vgstartO. 

The  device  interrupt  handler  passes  the  interrupt  to 
the  user  via  signal  numoer  two  or  fifteen.  All  device 
interrupts  except  the  ASCII  CNTRL.  T  character  are  passed 
to  the  user  via  signal  fifteen.  The  ASCII  CM^l  T  charac- 
ter input  via  the  vector  oenera)  keyboard  is  interpreted 
as  a  control  key  terminating  the  process,  causing  the 
display  to  be  cleared,  and  notifying  the  user  v>a  signal 
two.  Occasionally,  the  user  may  desire  the  C N' T R L  T  char- 
acter as  data.  This  is  provided  by  input  of  the  ESC  char- 
acter from  the  vector  aeneral  keyboard.  This  results  in 
the  next  interrupt  being  sent  to  the  user  regardless  of 
the   type   or   content.   Each  device  interrupt  also  causes 
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the  values  of  various  vector  general  reai  sters  to   be   ex- 
tracted and  stored  in  vqhuf U  for  transfer  to  the  user. 

The  transfer  of  the  vector  general  r  e  q  i  s  t  e  r  values  to 
the  user  can  he  accomplished  in  several  different  ways. 
The  most  common  is  in  resoonse  to  a  device  interrupt.  The 
user  can  acquire  the  interrupt  state  of  the  vector  general 
(except  the  dial  positions)  by  issuing  a  readO  command 
using  minor  device  cne»  VuOlSP.  The  contents  of  vgbufU 
are  passed  to  the  user  via  the  passe f)  routine.  The 
user's  readO  command  with  minor  op  vice  two,  VGCNT^L/  will 
force  an  u  o  d  a  t  e  of  the  vobufU  n  e  f  o  r  e  passing  thp  values 
to  the  user.  When  r i  n  o  r  device  t  h  r  p  p /  V  G  F  M  S  W »  is  i  j  s  e d  in 
a  read  operation/  the  values  of  the  function  switches  are 
updated  prior  to  senoino  vgbufC]  to  the  user.  VGDIAL, 
minor  device  four/  extracts  the  values  of  the  ten  dial 
positions  before  transmission  of  vobuf (1 ,  The  vector  gen- 
eral oial  positions  are  acouired  via  a  separate  readO 
command  because  sixteen  microseconds  are  required  to  read 
each  dial  Position  to  the  f  t ;  1  1  twelve  bit  precision. 

The  vector  general 's  P-bit  interrupt  is  not  utilized 
in  this  software  interface.  Therefore!  the  P-bit  inter- 
rupt handler  is  an  empty  routine. 

The  source  code  for  the  system  routines  is  maintained 
in  /usr/svs/dmr/vndrvr.c.  A  cooy  of  voorvr.c  is  included 
as  Appendix  D. 
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IV.   MEMORY  ALLOCATION 


A.   FIXED  MEMORY  ALLOCATION 

The  user  space  rnemory  allocation  for  the  vector  a  en- 
era  1  reoisters  and  the  picture  display  list  use  ar> 
unorthodox  technique  to  obtain  sequential  memory  loca- 
tions. All  the  iateqer  variables  defined  in  the  file 
vqrea.h  correspond  to  the  named  vector  general  registers. 
The  order  of  the  variables  is  the  order  in  which  the 
values  are  read  from  the  vector  general.  because  the 
loao^r  assigns  variables  sequential lyr  this  technicue 
allows  the  variables  to  be  rpfcr-pnceo  by  incrementing  an 
address  Pointer  without  requiring  a  structure  definition. 

The  file  vqsys.h  contains  a  s  i  m  i 1 i  a  r  sequence  of  in- 
teger variables  used  as  the  display  list  for  initializing 
the  picture  parameters.  Each  integer  variable  of  this 
file  is  a  vector  qeneral  comnana  or  a  vector  general  data 
word.  The  order  of  the  variables  cannot  be  chanced 
without  affect  inn  the  operation  of  the  vector  general. 


fi.    \  UNABLE  MEMORY  ALLOCATION 

The  arrays  and  vectors  that  directly  limit  the  size  of 
the  interface  data  structure  are  defined  in  the  files 
vqqlob.h  and  vqobj.h.   'A hen  specific  applications   require 
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the  interface  data  structure  to  he  altered?  the  define 
statements  used  to  deter -nine  all  array  and  vector  sizes 
are  locate a  in  vqdef.h.  This  permits  any  of  the  system 
Darameters  to  be  modified  by  referencing  a  single  file. 


V.   UStW  INTERRUPT  ROUTINES 


A.   INTERRUPT  HANDLER  (vgapiv) 

The  basic  interrupt  handler?  v  g  d  p  i  v ( ) ?  is  called  in 
response  to  signal  fifteen  from  the  system  device  inter- 
rupt handler.  1  o  cetermine  which  vector  cjeneral  device 
caused  the  interrupt?  vqdpivC)  obtains  the  interrupt  state 
of  the  vector  general  via  the  user  interface  routine 
vgoio().  vaoioO  transfers  the  values  of  eighty-three 
vector  oeneral  registers  into  eighty-three  contiguous 
words  of  memory  starting  at  the  address  of  v  g  *•  f  S 1  .  The 
value  of  the  priority  interrupt  renuest  register  ( P I  R  )  can 
then  ue  examined  to  determine  the  aoorooriate  interrupt 
hanci  1  e  r  . 
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B.   KEYBOARD  CHARACTER  INTERRUPT  HANDLER  (vqkpiv) 

The  keyboard  character  interrupt  handler/  v  q  k  p  i  v  (  )  >  is 
called  when  the  P I K  bit  of  the  P 1 K  reqister  is  set.  The 
ASCII  keyboard  character,  vokbr,  is  placed  in  a  circular 
oueue*  vcikoue*  and  the  input  character  flap,  vgkptr*  is 
incremented  to  the  next  cell  in  the  oueue.  A  character 
input  f  1  a  o  *  v  g  k  f  1  a  q  *  is  incremented  each  time  a  character 
is  input.  The  routine  vaqetcarO  uses  this  flap  to  deter- 
mine if  a  character  has  oeen  input, 

Whenever  the  ASCII  character  C N T R L  P  is  detected* 
vqkaue  is  cleared  ano  the  flaos  vqkflao  and  vgkquefl  ere 
reset  to  zero.  This  effectively  clears  the  in out  queue  of 
all  previous  characters. 


C.   MANUAL  INTERRUPT  HANDLER  (vgmpiv) 

The  manual  interrupt  pivot*  v  g  m  p  i  v ( ) *  handles  the  PIS 
interrupt  from  the  vector  oeneral ,  The  sole  action  of  the 
interrupt  handler  is  to  increment  a  counter*  vqmanint. 
This  counter  may  be  interroqated  and  cleared  hy  the  user. 


D.   LIGHT  PEN  INTERRUPT  HANDLER  (vglpiv) 

The   light  pen  interrupt  handler*  v  q  1  p  i  v  (  )  *  is  respon- 
sible for  both  the  light  pen  interrupt  (PIP)  and  the  light 
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pen  sense  switch  ( S  P 1  )  interrupts.  Each  interrupt  call  to 
this  rout ino  must  he  processed  and  cleared  before  another 
light  pen  interrupt  may  be  accepted.  For  each  accepted 
interrupt  the  followina  vector  general  reoisters  are 
stored  in  successive  words  of  valpbuf  I)  ! 

Priority  interrupt  register  ( P I R ) 

Instruction  register  (  I  R  ) 

^ord  count  (  .'  C  R  ) 

X,  Y  ,  Z    coordinate  registers  (XPr  Y  R  ,  ZR  respectively) 

Pen  resolution  byte  (PEiiR) 

Whenever  a  light  pen  interrupt  occurs  and  the  light 
pen  sense  switch  is  processed/  the  counter  volpsfla  is 
incremented.  The  user  is  responsible  for  the  use  of  this 
counter. 


E.   PROCESS  TERMINATION  ROUTINE  (vocrash) 

v  g  c  r  a  s  h  (  )  is  called  in  response  to  signal  two.  The 
vector  general  is  closeo  via  votermO  and  the  process  is 
terminated. 


IS 


VI.   USER  1N1FRFACE  ROUTINES 


The  user  interface  software  has  been  desiqned  to  make 
the  detailed  ooerat  ion  of  the  vector  general  transparent 
to  the  user.  However/  the  user  shoulo  be  familiar  with 
the  data  structure  constructs  user)  to  implement  the  inter- 
face. 

The  basic  concept  of  the  uspt  interface  software  is  to 
define  hiph  level  constructs  which  the  user  interface 
routines  convert  into  vector  general  commands.  There  are 
three  classes  of  constructs  defined:  o  b  j  e  c  t  s  ,  elements, 
and  the  picture.  An  object  is  the  lowest  level  construct 
which  can  be  d i  s  p 1  a  y  e  a  alone,  Each  object  is  independent- 
ly rctatable;  scalable,  and  translatable  into  any  portion 
of  a  thirty  inch  by  thirty  inch  picture  space.  An  object 
can  be  as  laroe  as  fifteen  inches  Py  fifteen  inches  and  be 
rotated  or  positioned  to  the  extreme  limits  of  the  picture 
space  without  distortion  to  any  of  the  remaining  visible 
portion.  Each  object  is  comoosed  of  one  or  more  indepen- 
dently lioht  pen  ho oka Die  elements.  An  element  is  com- 
posed of  a  series  of  user  drawn  images  or  characters  en- 
tirely relative  to  the  untransformed  image  space  of  its 
object.  An  object  can  be  defined  unrotated  in  such  a  way 
as  to  fill  the  entire  object  space  and  then  be  scaled, 
rotated,  and  moved  so  that  the  image  space  is  the  ap- 
propriate size,  is  viewed  from  the  appropriate  aspect,  and 
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is  in  thp  npnropriaf p  area  of  the  picture.  The  picture 
defines  t^e  picture  scalp  and  screen  coordinates  for  all 
objects.  Fioure  5-1  orovides  a  oraohic  representation  of 
the  relation  shin  between  each  construct. 

The  user  is  responsible  for  the  generation  and  content 
of  each  element.  Prior  to  its  inclusion  within  the 
display  list*  the  user  mu5f  f  i  i  1  each  element  with  the 
necessarv  draw  and  move  commands.  In  addition*  the  use  r 
must  Dfovidp  three  unused  words  succeed inq  the  draw -move 
commands.  Those  three  words  are  used  by  the  interface 
routines  to  ensure  each  element  is  p r o d e r 1 y  terminated. 
This  prevents  the  vector  general  from  accessing  memory 
outside  the  display  list  i*  the  user  fails  to  orooerly 
terminate  the  display  list. 

The  Generation  and  content  of  all  objects  and  the  pic- 
ture is  the  responsibility  of  the  interface  software.  A 
set  of  routines  are  provided  to  link  elements  to  objects 
and  objects  to  the  picture.  Dynamic  modification  of  ob- 
jects and  picture  parameters  is  also  provided.  However, 
it  is  the  user's  responsibility  to  dynamically  modify  the 
element  content. 

The  fol  lowinn  routines  are  normally  transparent  to  the 
user  and  should  not  be  accessed  directly  by  the  user. 

vacntrl  (addr)  vompivO 

vgcrasM )  vaobjmodCnum, fields, action) 

v  a  c  o  n  v  t  ( a  b  o )  vooini t  (1 

vadpivC)  vqorenO 
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v  q  e 1 e m  o  d ( n  u  m / fieldsract ion)  vgc>icmod(fie1d/act ion) 
v  g  k  p  i  v  (  )  v  q  n  i  o  (  b  o  ,  rr.  o  d  e  ) 

vqmpivO 

The  routines  that  are  directly  accessable  hy  the   user 

for   manipulation   a  no   roodification   of   the  display  data 

structure  are: 


vqaddel e (anp,num( si  70) 

v  q  b  1  i  n  k  (  t  y  p  e  t  n  u  rn  ,  a  c  t  i  o  n  ) 

v  g  c  1  o  c  k  (  r  a  t  e  ) 

vgcoord(num,x,y,?) 

vqcsr(num,val ) 

vgdelele(num) 

v  q  0  e  1  o  b  j  ( n  u  m  ) 

v  g  d  i  a  1  ( a  b  p ) 

vggetcarO 

vggetfsw(abp) 

v q q e  t  lpn(a!  p) 


vaini  t  ( ) 

vqiof set  ( n  u  m , v  a  1  ) 

v  g  i  s  c  a  1  ( n  u  m  t  v  a  1  ) 

vglamps(abp) 

valpen(type/nuT, act  ion) 

v  o  rp  k  o  b  j  (  ) 

vppicture( ) 

v  o  p  o  s  t  (px,py) 

v  g  p  s  c  a  1  (  v  a  1  ) 

vgrotateCnum* x  ,  y  ,  7  ) 

v  o  t  e  r  rn  (  ) 


A.   SUPPORT  IMG  P0U1  INtS 

The  function  ami  operation  of  the  routines  vqcrash(), 
vqdpiv()/  vqkotvt);  vqlpivO*  and  vgmqivf)  have  been  Dis- 
cussed earlier.  See  section  I v  for  a  oiscussion  of  their 
funct  ion. 
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Finure  b - 1  .   Data  Structure  of  the  Disolay  Interface 
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1  .   Get  Heal  Address  Routine  (vocntrl  ) 

Since  the  vector  general  uses  a  OKA  channel  for 
display  list  access,  all  noncontiguous  display  lists  must 
be  linked  by  a  reol  PDP-11  address  at  tne  ooint  of  discon- 
tinuity. This  routine  takes  the  contents  of  the  input 
parameter f  addr,  and  converts  it  to  a  real  PDP-11  a dor  ess 
in  a  format  acceptable  to  the  vector  general.  The  a d a r e s s 
is  passed  to  the  system  routines  by  the  routine  v  g  p  i  o ( ) . 
The  same  routine  is  called  to  return  the  real  address  in 
the  variable  raci6r.  The  returned  address  is  not  accept- 
able to  the  vector  general.  The  bit  manipulation  neces- 
sary to  convert  the  real  address  into  the  vector  general 
memory  address  register  (MAR)  format  is  shown  in  Figure 
5-2. 

2 .   Get  User  So ace  Address  Routine  (voconvt) 

The  interface  routines  maintain  no  recora  of  the 
user's  element  addresses.  Therefore,  when  a  display  con- 
struct is  mooified,  the  user  space  address  of  the  elements 
involved  must  be  obtained.  The  fv/  A  R  format  address  founn 
in  the  active  display  list  is  converted  back  to  a  user 
space  address  by  this  routine.  The  contents  of  the  param- 
eter abp  (a  MAR  format  address)*  is  first  converted  back 
to  a  real  PDP-11  address  (see  Figure  5 - 2 ) .  Since  the 
display   process   is   real-time   and  locked  in  memory,  the 
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base  address  of  the  process  remains  constant.  A  call  to 
v  o  p  i  o  (  )  returns  the  o recess  block  number  in  the  variable 
base.  The  block  number  is  then  ronverted  to  the  process 
base  address  by  mul  t  iol  vino  by  sixty -four  (sixty-four 
bytes  pe  ^  block).  The  difference  between  the  o roc e s  s  base 
address  and  the  real  P  0  P - 1  1  address  is  the  user  space 
address  offset  by  t Hp  size  of  the  user  vector.  The  user 
vector  is  a  structure  containi no  all  the  per  process  data 
that  does  not  need  to  be  referenced  while  the  process  is 
swapoed.  Subtraction  of  the  user  vector  offset,  yields  the 
user  space  address. 
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The  numbers  within  the  vector  arnpral   word   are   the   bit 
numbers  of  the  PDP-11  word. 


Fioure  b-2.   PDP-11  to  Vector  General  MAR  Format 
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3 .   v o d i  f  y  Element  Routine  (vo^lemed) 

The  only  dynamic  system  modifications  that  can  be  per- 
formed on  an  element  is  to  set  or  clear  the  blink  mode  and 
light  o  e  n  hookability. 

The   element  defined  by  the  contents  of  the  parameter/ 
num ,  is  located  by  a  sequential  search  of   elements.    The 
name  bvte  field  is  compared  with  the  input  parameter/  num. 
If  a  match  is  found/  the  value  of  the  field  bits  are  0 R ' e d 
or  AND'ed  into  the  element  depending  unon  the  value  of  the 
parameter/  action.   If  action  is  a  ?erc/   the   field   bits 
are   OR'ed  into  the  element.   If  action  is  a  one/  the  com- 
plement of  the  field  bits  are  AND'ed  into  the  element. 
The  routines  possible  return  cooes  are: 
0  -  Normal  return 
- i       -       The  element  described  in  the  in nut  parameter  does 

not  exist 
- H       -  The  value  of  the  element  number  is  non-positive  or 
areater  than   two   hundred   fifty-si x,        the   maximum 
number   of  elements  permitted  by  the?  name  byte  field 
of  the  vector  general . 
The  error  codes  are    chosen  to  be  consistent  throughout  all 
the  interface  routines. 
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li .       i-"  o  d  i  f  i  y  Object  Routine  (voohj  m  o  d  1 

Object  modification  is  more  Comdex  than  the  element 
modification,  because  of  the  number  of  parameters  that  may 
be  varied.  The  structure  member*  v  q  n  u  m  f  of  each  object  is 
compared  with  the  input  parameter,  n  u  m »  until  a  match  is 
found.  There  is  no  reauirement  the  object  exist  in  the 
active  display  list.  If,  however,  the  object  is  part  of 
the  active  display*  a  copy  of  the  object  is  made  into 
vqworkhufl).  vgworkbufl]  is  then  linked  to  the  active 
display  list  while  the  orqinal  object  is  modified. 

The  bit  values  of  the  input  parameter,  fields,  deter- 
mine which  parameters  are  to  be  rioaified.  The  octal 
number  represent  i  rig  the  bit  position  of  field  ana  the 
resultino  operation  is  as  follows: 

0  -  Use  the  contents  of  vqf<  rot  (1  as  the  new  values 
of  the  rotation  matrix. 

01   -  The  value  of  v  a  f «-  c  S  r  is  taken  as  the  new  value 
of  the  coordinate  scale  register. 

0  d    -     The  values  of  v  Q  f  <-  d  x  r  i     v  q  f  «■  d  v  r  ,  and  v  q  f «-  d  7  r    are 
assumed  to  p  e  the  current  values  of  the  X,  Y  ,  and   Z 
coordinates  respectively. 
010  -  Ihe  new  intensity  offset  value  is  obtained  from 

v  g  f  «■  i  o  r  . 
020  -  v  g  f  «•  i  s  r  is   the   new   value   of   the   intensity 
scale. 
0^00  -  Ihe  light  pen  halt  interruot  is  set  or   cleared 
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depending   unon   the   valup   of  the  input  parameter, 
act  i  o  r>  . 
UlOOO   -  Display  blink  for  the  object  is  set  or  cleared 
as  determined  by  the  value  of  action. 
020000   -  The  light  pen  interrupt  is  enabled  or  disabled 
depending  upon  the  value  of  action. 
After  all  modifications  have  been  completed/  the  modi- 
fied display  list  is  again  linked  to   the   active   display 
list. 

The  possible  return  codes  are: 
0  -  Normal  return 
-1  -  the  value  of  the  object  number   parameter   is   non- 
positive  or  a  r  e  a  t  e  r  than  f\i  0  6  J  »  the  maximum  number  of 
objects. 
-d       "       The   object  cescrioed  in  the  input  parameter  does 
not  exist. 

5 .   Object  Initialization  Routine  (vooini  t  ) 

This  routine  is  called  as  part  of  the  program  initial- 
ization routine/  v  o  i  n  i  t  (  )  ,  to  initialize  the  object  struc- 
tures and  link  the  components  of  the  display  list.  Since 
no  objects  are  included  at  program  initialization,  only 
vqidle  is  linked  to  the  aisplay  list.  voidle  is  a  vector 
general  HALT  instruction  used  to  keep  the  vector  general 
from  accessing  data  outside  of  the  defined  display  lists. 
Each  object  is  intialized  with  vector  general  instructions 
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permitting  the  follow  i  n  a  dynamic  modifications: 
Chanqe  the  nine  reoi  ster  rotation  matrix 

Vary  the  twelve  bit  X,  Y  ,  and  Z  coordinate  displacements 
Modify  the  five  hit  intensity  offset  register 
Chanqe  the  twelve  hit  intensity  scale  register 
tach  object  is  treated  as  a  subroutine  of  the  object 
buffer  list/  vgobjlistU.  Therefore*  the  last  executable 
instruction  of  each  object  is  a  return  subroutine  jump. 
Since  the  initialized  object  has  no  elements*  the  first 
element  of  each  object  is  initialized  to  a  loan  M AH  from 
stacK  instruction  (  0  'J  4  0  1  o  )  .  This  instruction  causes  the 
vector  general  to  get  the  next  display  instruction  from 
vgob  j  1  i  s  t  I ]  . 

6 .   Open  Device  Routine  (ynpnen) 

This  routine  ooens  all  six  minor  devices  and  saves  the 
file  descriptors  for  later  use  by  vgpioC)  and  vgtermO. 
The  file  Descriptor-  variables  for  the  various  minor  dev- 
ices are  i 

vqemd  -  minor  device  z^ro 

vqdisp  -  minor  device  one 

vgctrl  -  minor  device  two 

vgfnsw  -  minor  device  three 

vgdial  -  minor  device  four 

vgcnvt  -  minor  aevice  five 
If  a  device  cannot  be  opened  an  error  message  is  printed. 
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7  ,    Picture  Modification  Routine  (vnpicrrod) 

When  the  user  desires  to  modify  the  blink  or  light  pen 
modes  of  the  picture*  this  routine  performs  the  modifica- 
tion. If  bit  nine  of  the  input  oar  a meter/  field/  is  set / 
the  clink  m ode  of  each  element  is  modified  accoroina  to 
the  value  of  the  input  parameter/  action.  B  i  t  eight  and 
thi  rteen  of  field  affect  the  light  pen  hooka  b  i  1  i  t  y  of  the 
picture. 

^  •   P  1  0  Fxecut  ion  Routine  (vopio) 

v  a  p  i  o ( )  is  called  by  all  routines  needing  to  communi- 
cate with  the  vector  general*  The  innut  parameter/  bp/  is 
the  address  of  the  buffer  used  for  the  read  or  write 
operation.  The  second  parameter-/  mode/  is  a  coded 
description  of  the  desired  operation.  The  value  and  pur- 
pose of  each  mode  is  as  follows: 

1  -  Re  a  a  operation  using  minor  device  ?ero  ( C  f'D<-R[  Ab  )  » 

Useo  in  conjunction  with  mode  d  to  convert  a  user 
space  address  to  a  real  address.  The  buffer*  bp/  is 
a  pointer  to  a  receptor  for  the  real  address. 

2  -  .'.rite  operation  using  minor  device  zero  (C^D*- WRITE). 

The  a  d  dress  of  bp  is  sent  to  the  system  routines  for 
conversion  from  a  user  space  address  to  a  real  ad- 
dress. 

3  -  Read  operation  usino  minor  device  one  (DISP*-READ). 
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This  read  operation  will  return  the  eiahty-three 
vector  general  register  values  as  stereo  bv  the  sys- 
tem routines  to  the  eighty-three  words  beginning  at 
aoOress  Op.  Normally  this  mode  is  used  to  return 
the  interrupt  reoister  value. 

5  -  R  e  a  a    operation  using  minor  device  two  (CTRL«-READ). 

Similar  to  mooe  three  exceot  the  current  values  of 
the  vector  general  reoistors  (not  the  dial  values) 
are  extracted  from  the  vector  General  prior  to  send" 
ino  them  to  the  caller. 

6  -  Write  operation  u  s  i  n  a    minor  device  two  (CTRL<- WRITE). 

The  contents  of  b  p  r  refresh  rate/  is  sent  to  the 
system  routines  to  define  the  refresh  reference 
count . 

7  -  Re  a  a  operation  using  minor  device  three  (F  N  S  W  <-  R  E  A  D  )  . 

Similar  to  mode  three  except  the  current  values  of 
the  function  switches  ar  e  extracted  from  the  vector 
oeneral  prior  to  the  read  operation. 

8  -  Unused 

9  -  Read  operation  using  minor  device  four  (DIAL*-READ). 

Similar  to  mooe  three  except  the  ten  oial  position 
values  are  extracted  from  the  vector  general  prior 
to  the  read  operation. 

NOTE:  The  oial  positions  are  analog  devices.  The 
conversion  from  analog  to  digital  reauires  sixteen 
microseconds  per  dial. 
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10  -  Unused 

11  -  Read  operation  usina  minor  device  five  (C[\)VT«-READ). 

This   operation   is  u  s  e  a  with  the  real  to  user  space 
address  conversion.   The  buffer  pointer,  Up,  is   the 
receptor   for   the  block  number  representing  the  b  e  - 
g  i  n  n  i  n  g  of  the  real-time  process. 
1  d     -  Unused 

Prior  to  any  read  or  write  operation  the  value  of  bp 
is  checked  for  zero.  The  caller  is  prevented  from  reading 
or  writing  usina  a  d  d  r  e >  s  s  zero.  The  read  or-  write  opera- 
tion using  address  zero  can  cause  the  opera  tine  system  to 
f  ai  1  . 


B.   USFR  ROUT  if.LS 

1  .   fl  d  d  Element  Routine  ( v  g  a  d  d e 1 e ) 

A  user  defined  element  is  linked  to  a  previously  de- 
fined object  by  this  routine.  The  address  of  the  user 
element  buffer  is  the  Parameter,  abp.  The  input  parame- 
ter! size*  is  the  numher  of  bytes  in  the  user's  element 
b  u  f fer. 

NOTE:  The  user  is  reouired  to  provide  six  unused 
bytes  with  each  element.  The  six  bytes  (three 
words)  must  succeed  the  draw-move  commands. 
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The  value  of  s  i  ^e  is  a  byte  count  so  as  to  follow  the  con- 
vention established  tor  PDP-11  system  calls.  The  byte 
count  must  also  be  even  to  satisfy  the  worn  aodressing 
reouirernent  of  the  vector  q e n e r a  1  . 

If  the  byte  count  is  even  and  nreater  than  six,  a 
sequential  search  of  all  object  structures  is  initiated. 
The  structure  member  $  vanurr,  is  comDared  with  the  input 
parameter/  num.  When  a  match  is  founor  a  search  c  f  that 
object's  elements  is  beoun.  The  element  search  is  con- 
ducted in  increments  of  seven  because  seven  words  of  the 
object  structure  are  required  to  link  each  element  to  the 
object.  The  search  key  is  the  word  havinn  the  name  byte 
of  the  user  element.  The  search  is  completed  when  the  key 
word  is  zero-  before  link  inn  the  element  to  the  object/ 
the  six  unused  bytes  (three  words)  of  the  users  element 
buffer  are    assigned  as  follows: 

k\ord  one  -  Terminate  character  mode  (024) 

Word  two  -  Terminate  vector  mode  ( 0 1 5 ) 

Word  three  -  load  MAR  from  stack  (044016) 

The  element  to  be  added  is  always  appended  to  the  pre- 
viously linked  elements  of  the  object.  Therefore/  the 
word  following  the  new  element  is  set  to  a  load  MAR  from 
stack  instruction  (  u  4  4  0  1  o  )  .  Thn  seven  words  1  innno  the 
element  to  the  object  are  next  assigned  as  follows: 

load  NMR  (020  0P.2) 

element  number 

load  KAR  (040005) 
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MCR  value  (0  46201 ) 

Store  M  A  R  in  stack  and  n-ark  (  0  7  4  ?  1  6  ) 
Load  MAR  (040016) 

Address  of  element  in  MAR  format 
The  value  placed  in  the  name  byte  field  ( N M R )  of  the   ele- 
ment is  returned  to  the  user. 

Several  conditions  could  cause  an  error.   The  possible 
error  codes  and  their  neaninos  are  as  follows: 

-1  -  lhe  value  of  the  ohject  number   parameter   is   non- 

positive  or  oreater  than  N!  0  b  J  ,  the  maximum  number  of 

objects, 
-2   -   lhe   object  described  in  the  input  parameter  does 

not  exist, 
-6       -   lhe   number  of  previously  assigned  elements  eoual 

NELL/  the  maximum  number  of  elements  per  object. 
~  ii       -   lhe   value   of   the   q  1  o  b  a  1   v  a  r  i  a  b  1  e  ,  elenum*  is 

oreater  than   two   hundred   fifty-six,   the   maximum 

nu^oer   the   vector   general   name  byte  register  can 

contain. 
-5   -   The   user   element   buffer  contains  less  than  six 

bytes  or  the  byte  count  is  odd. 
-6  -  lhe  user  element  buffer  address  is  zero. 

? .   Add  Ohject  Routine  (vaaddohj) 

The   object  referenced  by  the  parameter,  n  u  m  ,  is  to  be 
added  to  the  active  display  list  buffer,  vgobjlistM.   The 
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object  to  he  added  is  located  b y  sequentially  search i no 
the  object  structure.  When  the  structure  m  e  m  b  e  r  i  v  g  n  u  m  , 
matches  the  input  parameter,  num/  the  desired  object  has 
been  founn.  1 h  e  address  of  the  object  is  then  rlacea  in 
the  variable  p t  r .  Next  the  e n d  of  the  active  display  lis' 
is  founo  by  m u 1 t  i  o 1 y  i n  o  vgobj1ist[0]  by  three.  This  pro- 
vides the  ease  for  insert  in a  the  object.  Three  words  are 
r  e  Q  u  i  r  e  d  to  1  i  n <  the  object  to  vaobjlistU.  1 h e  base  is 
the  last  of  the  three  word  group.  The  three  word  group  is 
assigned  as  follows: 

Store  MAR  in  stack  and  mark  (  0  7  n ? 1 b ) 

L  o  a  o    MAR  ( 0  a  0 0 1 b ) 

Address  of  the  object  in  MAR  format 

The  interface  routines  are  designed  to  ensure  that  the 
objects  in  vaobjlistU  are  always  compact.  Therefore/ 
each  object  addition  is  at  the  end  of  the  previously  added 
objects.  Since  the  last  link  in  v  g  o  b  j 1  i  s  t  t ]  should  always 
to  v  g  i  rt 1 e  »  the  v  q  i  d 1 e  link  must  be  reassigned  immediately 
following  the  newly  added  object.  The  instruction  se- 
nuence  affecting  this  link  is: 

Load  MAR  (  0 4 0 01b) 

Address  of  v  q  i  d 1 e  in  MAR  format 

There  are  four  possible  return  codes  for  this  routine. 
0  -  Normal  return 
-1   -   I  he   value  of  the  object  number  parameter  is  non- 
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positive  or  oreater  than  MOB J,  the  maximum  n  u  m  d  e  r  of 

objects. 
~<?  -  The  object  described  in  the   input   Dar??eter   does 

not  exist. 
-3  -  The  number   of   previously   defined   objects   eoual 

fJOBj  ,     the  maximum  number  of  objects. 

3 .   Display  B 1  i n k     Routine  (ynhljn k  ) 

The  display  blink  bit/  M D  B ,  of  the  M C  R  register  is  set 
or  cleared  by  this  routine.  The  value  of  the  parameter* 
type/  determines  whether  the  picture,  an  object*  or  an 
elerrent  is  to  be  affected.  The  value  of  the  parameter* 
action;  specifies  the  cle<sr  or  set  operation.  The  return 
codes  are  the  same  as  those  of  vgobjmod(). 

U  .   Set  Refresh  Pate  Rout  inp  (vqcloc^l 

The  routine  v  g  c  1  o  c  k  (  )  is  the  only  routine  sending  a 
control  parameter  to  the  system  routines.  The  contents  of 
the  parameter,  rate,  (the  refresh  rate  in  hertz)  is  con- 
verted into  an  integer  number  representing  the  number  of 
8.33  milliseconu  interrupts  permitted  before  refreshing 
the  display.  This  integer  must  be  between  zero  and  nine. 
The  converted  value  is  sent  to  the  system  routines  via  the 
rout  i  ne  vgp  i  o ( ) . 
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5  .   Ch-^nne  Coordinate  Pout  ino  (yncoord) 

The  values  of  the  X,  Y,  and  Z  cooroinate  displacements 
are  updated  from  the  inout  parameters  by  this  routine. 
The  x»  y»  and  z  input  parameters  are  placed  in  v  q  f  <-  d  x  r  , 
vaf«~dyr,  ana  vcf  <-dzr  respectively.  f  he  routine  vcot-  jmodO 
is  then  called  to  update  the  coordinate  displacement 
values.  The  object  affected  by  the  new  values  is  identi- 
fied by  the  input  parameter,  num. 

The  range  of  the  X  ,  Y  ,  and  Z  coordinate  displacement 
values  is  from  negative  two  thousand  forty -eight  through 
two  thousand  forty-seven.  The  return  codes  for  this 
routine  are  those  of  vgobjmodC).  The  return  codes  for 
this  routine  are  the  same  as  those  of  vgobjmodC). 

6 .   Change  Coordinate  Scale  Routine  (  v  ■  >  c  s  r  ) 

The  coordinate  scale  reqister  of  an  object  is  updated 
by  this  routine.  The  lower  twelve  bits  of  the  parameter; 
v  a  1  ,  is  assigned  to  vcf*-csr.  vgobjmodO  is  then  called  to 
update  the  coordinate  scale  of  the  object  given  in  the 
parameter,  num.  The  return  coo'es  for  this  routine  are  the 
same  as  those  of  vgobjmodO. 


II 


7  .   Delete  Moment  Routine  (vodelele) 

Since  elements  are  linked  to  objects  ov  aodina  the 
element  address  to  the  element  field  of  an  object/  the 
deletion  process  neeo  only  oelete  th<*  address  link.  The 
element  to  be  deleted  is  located  in  exactly  the  same 
manner  as  in  vamodele().  In  this  routine*  However/  only 
the  object  con^ainino  the  element  is  modified.  To  d re vent 
unwanted  holes  within  an  object/  the  address  of  the  last 
element  linked  to  the  object  is  assi a neo  to  the  location 
of  the  element  to  be  deleted.  This  deletes  the  desired 
element  but  leaves  a  o  u  p  1  i  c  a  t  e  copy  of  the  element  in  the 
display  list.  This  Duplication  is  eliminated  by  cnanoino 
the  last  active  element  field  to  a  load  MAR  from  stack 
instruction  (04  4016) . 

The  return  codes  for  this  routine  are: 
0  -  Normal  return 
-2  -  The  element  described  in  the  input   para m eter   does 

not  exist 
-  4  -  The  value  of  the  element  para m eter  is   non- positive 
or   oreater   than  two  hundred  fifty-six,  the  size  of 
the  vector  general  name  Pyte. 

8 .   Delete  Object  Pontine  (yodel obj) 

Deleting  an  object  reouires  the  address  link  in  the 
object   list   buffer/   vqobjlistU/   to  be  cleared  and  the 
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remaining  objects  links  to  be  compacted. 

The   object   to   be  deleted  is  located  by  sequentially 
searchinn  the  object  structures  for  the   object   with   the 
structure   member,   vgnum,   matching   the  incut  parameter/ 
num.   The  object  list  buffer  is  then  searched  to  determine 
if  the  object  is  currently  in  the  active  display  list.   If 
the  object  is  currently  in  the  active   display   list,   the 
address  of  the  lost  object  in  vgobjlistU  is  cop  i  ed  to  the 
address  of  the  object  to  be  deleted.   Tnis  last  object   in 
vgobjlistU   is   then  deleted  by  a  load  Vi/ik  from  stack  in- 
struction (0  4  4016).   The  structure  member,  vgnum*  is  reset 
to  7ero    m akinq  the  object  available  for  further  use. 
The  possible  return  codes  for  this  routine  are'. 
0  -  Normal  return 
-1  -  the  value  of  the  object  number   parameter   is   non- 
positive  or  greater  than  NOB J*  the  maximum  number  of 
objects. 
- d.       -   Ihe   object  o escribed  in  the  input  parameter  does 
not  exist. 

9 .   Get  Dial  Values  Routine  (vg-Jial) 

This  routine  obtains  the  vector-  general  dial  values 
and  returns  them  to  the  caller.  The  twelve  bit  dial 
values  are  returned  to  the  caller  in  a  ten  word  buffer 
provided  by  the  caller.  The  contents  of  the  parameter, 
abp,  is  the  b  e  a  inning  address  of  the  buffer. 
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1 0 .   Get  Character  Routine  (vnoetcsr) 

The  keyboard  input  f 1 aa,  va<f 1 aq<  set  by  tne  <ey hoard 
interruot  handler,  vokoi  v( ) ,  is  checked.  If  it  is  zero,  a 
minus  one  is  returned  to  the  caller.  If  it  is  non-zero* 
v  q  k f 1  a  o  is  decremented  and  the  value  c  f  v  q  k  q  u  e  f 1  is  used 
as  a  pointer  into  the  circular  keyboard  character  queue, 
vqkque/  to  fetch  the  ASCII  character  for  the  caller. 

1  1  .   Get  Function  Switch  Routine  (vmetisw) 

Two  vector  general  register  words/  v  g «-  f  s  1  and  v  g  «•  f  s  2 , 
are  returned  to  the  user  beginning  at  the  buffer,  abp. 
Each  bit  position  of  the  returned  words  is  the  value  of 
one  function  switch.  If  a  bit  is  set,  the  function  switch 
has  been  oe pressed.  The  first  two  rows  of  the  function 
device  are  contained  in  vo<-fsl.  Ihe  last  sixteen  function 
switches  are     retained  in  v  g  <-  f  s  <?  . 

1 2 .   Get  Linht  Pen  Interrupt  Values  Routine  (voqetlrn) 

The   values   of  the  following  vector  general  registers 
are    read  sequentially  into  the  Puffer  abr. 
vg«-pir  -  priority  interrupt  register 
v  g  <-  i  r  -  instruction  register 

v  g  <-  w  c  r  -  word  count  from  start  of  display 
vg*-xr  -  twelve  bit  X-coordinate  displacement 
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vq<-yr  -  twelve  bit  Y-coordinate  displacement 
v  g  *-  z  r  -  twelve  bit  Z-coordinate  displacement 
va*-penr  -  one  hit  pen  hit  resolution  count 

1 5 .   LMsnlav  List  Initialisation  (yginit) 

The  vainit()  routine  performs  all  di  sol  ay  list  ini- 
tialisation and  default  parameter  assignment.  The  user 
process  is  made  real-time  as  part  of  the  call  to  vqopenO, 
If  voooenO  can  not  make  the  orocess  real-time  or  access 
all  the  minor  devices*  the  user  process  is  terminated 
without  further  initialisation. 

After  successfully  accessing  the  vector  general  minor 
devices/  all  of  the  data  structure  buffers  are  assigned 
default  values  and  linked  to  form  a  hare  b o n e s  display 
system.  At  this  point  the  disnlay  could  be  run  and  all 
interrupt  s  would  be  processed. 

The  followino  default  picture  nar a meters  are  set  at 
display  initialization: 

All  function  switches  are  cleared. 

The  refresh  rate  is  set  to  forty  hertz. 

The  frame  clock,  keyboard,   and   manual    interrupts   are 
enab 1 ed . 

The  display  is  enabled. 

Maximum  picture  scale  is  set. 

Post  X  and  post  Y  displacement  values  are  set  to  zero. 


37 


1  L\ .   Set  Intensity  Offset  Routine  (voiofsot  ) 

The  input  parameter,  vol,  is  placer)  in  v  g  f «-  i  o  r  and  the 
object  modification  routine,  vgobjmodO*  is  called  to 
uodate  the  intensity  offset  register  of  the  object  refer- 
enced by  the  input  parameter*  num.  ~\\\o  return  codes  for 
this  routine  are  those  of  vaobjmodO. 

1 b .   Set  Intensity  Scale  Routine  (vois c  a  1  ) 

The  input  parameter,  val,  is  placed  in  vgf«-isr  and  the 
object  modification  routine,  v  a  o  b  j  m  o  d  (  )  ,  is  calico  to 
update  the  intensity  scale  register  of  the  object  refer- 
enceo  by  t.he  incut  p  a  r  a  m  e  t  e  r  ,  num.  The  return  codes  for 
this  routine  are  those  of  vgobjmodO. 

16.   Set  Function  Switch  Lames  W out  i  ne  (  v  g  1  a  m  p  s  ) 

The  four  successive  words  hpqinninq  at  the  buffer 
address  abp  are  assigned  the  four  vector  general  function 
switch  reoisters  v  g  s  *-  f  s  1  ,  v  q  s  <-  f  s  <^  ,  v  g  s  *■  f  s  3  /  and  v  q  s  <-  f  s  4  . 

1  7  .    Set   Lioht  Pen  [.nab  In   (ynlnen) 

The  light  pen  hooka bility  of  an  element  or  object  is 
set  or  cleared  by  this  routine.  If  the  input  parameter, 
type>  is  a  zero,  the  values  of  the  input   parameter  s,   num 
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and  action,  ore  passed  to  the  picture  modification 
routine/  vgpicmod().  If  type  is  a  one?  the  parameters  are 
passed  to  the  object  modification  routine^  vaobjmod().  A 
type  of  two  will  modify  the  element,  n  u  m  ,  by  calling 
v  q  e 1 e  m  o  a (  J  .  The  return  codes  are  those  o  i  the  modifica- 
tion routine  called. 

1  8  .   '''  a  k  e  Object  Routine  (  v  o  m  k  o  p  j  ) 

This  routine  initializes  an  object  structure  for 
display  use.  before  the  object  can  be  used,  it  must  be 
initialized  to  the  system  default  parameters.  The  default 
parameters  are* 

Maximum  intensity  offset 

Constant  intensity  scale 

0  n  e  -  h  a  1  f  cooro'inetP  scale 

Zero  for  the  X,  Y,  ana  Z  coordinate  displacement 

Zero  rotation 

Same  interrupts  as  set  bv  the  vainit  routine 

An  unused  object  is  founa  hy  searching  the  object 
structure  until  an  object  is  found  with  a  zero  assioned  as 
the  structure  member*  v  q  n  u  m  .  The  instructions  and  default 
parameters  are  assigned  to  the  structure  and  an  object 
number  is  assioned  from  the  qlobal  variable  vgcurorj.  The 
caller  is  given  the  new  object  number  as  a  return  value. 

A  possible  error  return  code  is: 
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-  i   -   Ihe   n  u  m  n  e  r   of   previously  defined  objects  e  a  u  a  1 
NUHJf  the  maximum  number  of  objects. 

1 9 .   Start  Disnlay  Routine  (vooictur^) 

The  b  e  a  i  n  n  i  n  g  address  of  the  display  list;   v  g  s  <- 1  d  f  s  1  » 

is  passed  to  the  vector  general. 

2  0 .   Change  Post  X  and  Post  Y  Displacement 
K'out  ine  (vorost  ) 

Ihe  lower  twelve  bits  of  the  input  parameters*  p x  and 
py,  are  assioned  to  the  vector  oeneral  register  vgs«-pdxr 
and  vgs«-odyr  respectively. 

2 1  .   Channe  Picture  Scale  Pout  ine  ( v  a  p  s  c  a  1  ) 

The  nicture  scale  is  changed  to  the  twelve  bit  value 
of  t^e  input  parameter/  v  a  1  . 

2 d .   Pot  ate  Routine  (vorotate) 

Ihe  input  parameters  x  ,  y,  and  z  are  the  radian  meas- 
ure of  the  rotation  about  the  X,  Y,  and  I  axis  respective- 
ly. The  necessary  calculations  to  chanoe  the  nine  regis- 
ter rotation  matrix  are  performed  here.  The  final  values 
entered  into  the  rotation  matrix  represent  the  triqometric 
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values  corresnondinq  to  the  requested  rotation  about  each 
axis.  The  rotation  matrix  of  the  object  referenced  by  the 
input  parameter,  num#  is  updated  to  reflect  the  new  rota- 
tion. 

2  3.   Terminate  T  h  p  i,'  i  s  p  1  a  y  (voters) 

The  vector  oeneral  is  cleared,  the  miner  devices  are 
close  6 1  and  the  process  is  made  non  real-time.  This  is 
the  final   interface  call  by  the  user. 
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APPENDIX  A 
DATA  STRUCTURE  FORMATS 
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Object  Format 
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Load  MAR 

Element  2    addr*  term. 


0 

u 

0 

0 

1 

6 

0 

0 

0 

0 

0 

1 

0 

\a 

a 

1° 

1 

b 

Load  MAR 

Element  n  A  d  d  r  ,  term 

Load  MAR  from  Stack 


HH 


F  1  e  m  e  n  t  Format 


Instruction 


0 

0 

0     0 
1 

1 

0 

1 

1 

0  0  0  0  0  0 

I  1  1  i  I 

0  0  0  0  15 


0  0  0  0?  u 


W.V.6 


F  u  n  c  t  ion 

User  Defined  Instruction 


User  Defined  Terminate  Inst 
Terminate  Ml  Vector  Modes 
Terminate  Character  "ode 
Load  Mar  from  Stack 
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APPENDIX  B 
GLOBAL  VABIABLES 


All  static  global  variables  used  through  the  Interface   routines   are   con- 
tained in  the  four  files  listed  here. 


vgg  1  o  b  .  h 


1  int  vgkqueCNKQUE] ; 

2 

3 

4     Int    vgstacktNSTACK]  ; 

5 

6 

7     int     vgTOi'kbuf  [  VGOBJSIZ}  ; 

6 

9  int  vglpbuf [7] ; 
10 
11 


//  queue  holding  the  last  NKOUE 

//  ASCII  keyboard  characters 

//  subroutine  stack  buffer  used 

//  with  YG  subrout  ine  Jumps 

//  work  buffer  for  sys  mods 

//  buffer  to  hold  the  VG  light  pen 

//  interrupt  registers 

//  current  object  number 


12  int  vgcurobj; 
13 

14  int  vg  idle; 

15  char  vgkflag; 
16 
17 
18 

19  char  vgkptr; 
20 
21 
22 

23  char  vgkquefl; 
24 
25 

26  char  vgmaniut; 
27 

28  char  vglpflag; 
29 
30 
31 
32 
33 

34  char  vglpsflg; 
35 
36 
37 
38 

39 

40  //      system    work   buffer    used    to    hold    the    values     to    be 

41  //       associated    with    the    vector    general    register    commands 
42 

//      picture    scale 
//       rotation    matrix 
//        I  n tens  i  ty    of fse  t 
//        intensity    scale 
//       coordinate    scale 
//       X-coord i n a te 
//       Y-coord  ilia  t e 
//       Z-coordinate 


//  keyboard    character    flag. 

//  Incremented    when    ASCII    character 

//  is     injjut 

//  pointer  to  kque  location 

//  receiving  the  next 

//  keyboard  character 

//  kque  pointer  to  the  next  character 

//  to  be  read 

//  Ji>anual  Interrupt  counter 

//  light  pen  flag.   Set  when 

//  a  light  pen  interrupt  occurs. 

//  Nns t  be  cleared  by  user  before 

//  a  second  interrupt  will  be 

//  processed 

//  light  pen  sense  switch  flag. 

//  Set  when  a  light  pen  interrupt 

//  occurs  and  the  sense  switch  is 

//  depressed . 


43  int  vgf_pscal; 

44  int  vgf_ro  t[9]  ; 

45  int  vgf_ior; 

46  int  vgf_isr; 

47  int  vgf_csr; 

48  int  vgf_dxr; 

49  int  vgf_dyr; 

50  lut  vgf_dzr; 
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1 

inl 

vge 

leitum; 

2 

Int 

vgo 

bj  1  isir  0L1S' 

3 

4 

5 

// 

s  true  ture  o  f 

objec  ts 

that 

6 

// 

d  Is; 

play 

7 

8 

str uc  t 

vgob  J 

9 

C 

10 

int 

vguum; 

// 

1  1 

int 

vg 1 i  o  r ; 

// 

12 

Inl 

vg ior; 

// 

13 

Int 

vg  isr; 

// 

14 

Int 

vg lesr; 

// 

15 

int 

vgc  s  r ; 

// 

16 

Int 

vgx; 

// 

17 

int 

vgy; 

/  / 

18 

int 

vgrzj 

/  / 

19 

int 

vgro t [ 9] ; 

// 

20 

int 

vgeleCELISTSIZ]  ; 

// 

21 

int 

vgnoop ; 

// 

22 

)  vgobj[N0I3J] 

; 

vgob J . h 


//       current    element    number 
//       object     list    buffer 


the    user    has    available     for 


object    m;mber 

load     intensity   offset 

intensity    offset 

intensity    scale,      terminate 

load    coordinate    scale 

coordinate    scale 

X— coord  iua to 

Y-coord inate 

Z- coordi na t  e 

rotation    matrix 

display    element    buffer 

no    op     instruction 


vgreg. h 


1  * 
2 

3  //      NOTE:    DO  NOT  ALTER  THE  ORDER  OF  THESE  VARIABLES 
4 

5  //   The  variables  iu  this  file  correspond  to  the  named 

6  //   vector  general  registers.   The  order  is  the  order  in  which 

7  //       the  values  are  assigned  by  the  device  driver.   The  loader 

8  //   assigns  these  variables  sequentially.   Progranmiat  icslly, 

9  //   these  are  treated  as  a  vector. 
10 

1  1 

12  int  vg_f s ;  //  function   switch    unit     1 

13  int  vg_k.br;  //  keyboard    character 

14  int  vg_t ix;  //  tablet    x    input 

15  int  vg_t iy;  //  tablet    y    input 

16  int  vg_pir;  //  priority    interrupt    requests 

17  int  vg_fficr ;  //  mode    and    control     ( lucl     int    enables) 

18  Int  vg_ir;  //  display    instruction 

19  int  vg_wc r ;  //  vo r d    count 

20  int  vg_xr ;  //  X-co ordinate 

21  int  vg_yr ;  //  Y-coord iua te 

22  int  vg_zr;  //  Z-coord inate 

23  int  vg_a  i  r ;  //  auto- i  ncretne  n  t 

24  int  vg_ior;  //  intensity   offset     (dimming) 

25  int  vg_isr;  //  intensity  scale     (cueing) 

26  int  vg_mar;  //  memory    fetch    address 

27  int  vg_spr;  //  stack    pointer 

20  int  vg_tgr;  //  temp,     general    purpose 

29  Int  vg_psr;  //  picture    scale 

30  int  vg_ntur  ;  //  name    byte 

31  int  vg_csr;  //  coordinate    scale 

32  int  vg_dxr;  //  coordinate    X   displacement 

33  int  vg_dyr;  //  coordinate    Y   d ispa lcemenl 

34  int  vg_dzr !  //  coordinate    Z    displacement 

35  int  vg_rllr;  //  rotation    matrix    X/X   scale 

36  int  vg_rl2r;  //  rotation    matrix    X/Y   scale 

37  int  vg_rl3r;  //  rotation    matrix    X/Z    scale 

38  int  vg_r21r;  //  rotation    matrix    Y/X   scale 

39  int  vg_r22r;  //  rotation    matrix    Y/Y   scale 

40  int  vg_r23r;  //  rotation    matrix    Y/Z    scale 
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41 

Int 

vg_r 3 1 r ; 

42 

Int 

vg_r32r  ; 

43 

Int 

vg_r33r  ; 

44 

int 

vg_wmcr  ; 

45 

int 

vg_xlir  j 

46 

int 

vg-x 1 r : 

47 

int 

vg_yhr ; 

48 

Int 

vg_ylr ; 

49 

int 

vg_zhr ; 

50 

int 

vg_z 1 r ; 

51 

int 

vg_pd>:r  ; 

52 

int 

vg_pd  yr ; 

53 

int 

vg_c c  r  ; 

54 

int 

vg_un 1 ; 

55 

int 

vg_un2 ; 

56 

int 

vg_un3 ; 

5? 

int 

vg_un4 ; 

58 

int 

vg_pirx; 

59 

int 

vg_mcrx; 

60 

int 

vg_pe nr ; 

61 

int 

vg_un5 ; 

62 

Int 

Vg_un6 ; 

63 

int 

vg_un7; 

64 

int 

vg_fs2; 

65 

int 

vg_kb2; 

66 

Int 

vg_un3; 

67 

Int 

vg_wn9 ; 

63 

int 

vg_fs3; 

69 

int 

vg_kb3; 

70 

int 

vg_un 1 0 ; 

71 

inl 

vg_un 1 1 ; 

72 

int 

vg_f«4; 

73 

int 

vg_kb  4 : 

74 

int 

vg_u_n  1 2 ; 

75 

int 

vg_un 1 3 ; 

76 

int 

vg_pX; 

77 

int 

vg_pY; 

78 

int 

vg_pZ; 

79 

int 

vg_j  x ; 

80 

Int 

vg-Jy; 

81 

int 

vg_J  z ; 

82 

int 

vg_dialE 103 

83 

Int 

vg_cxr ; 

84 

int 

vg_c yr ; 

85 

int 

vg.czr ; 

X 

low 

V 

high 

Y 

1  o  w 

Z 

high 

Z 

low 

//  rotation  matrix  Z/X  scale 

//  rotation  matrix  Z/Y  scale 

//  rotation  inn  tris  Z/Z  scale 

//  window  node  control 

//  window  boundry  X  high 

//  window  boundry 

//  window  boundry 

//  window  boundry 

//  window  boundry 

//  window  boundry 

//  post  X  d isp 1  ace men t 

//  post  Y  d isp lac erne nt 

//  color  control 

//  unused 

//  unused 

//  unused 

//  unused 

//  ex  dev  priority  interr  requests 

//  ex  dev  interrupt  enables 

//  pen  hit  resolution  count 

//  unused 

//  unused 

//  unused 

//  function  switches  unit  2 

//  keyboard  character  unit  2 

//  unused 

//  unused 

//  function  switches  unit  3 

//  keyboard  character  unit  3 

//  unused 

//  unused 

//  function  switches  unit  4 

//  keyboard  character  unit  4 

//  unused 

//  unused 

//  picture  X  coordinate 

//  picture  Y  coordinate 

//  picture  7.  coordinate. 

//  Joystick  X  input 

//  joystick  Y  input 

//  Joystick  Z  input 

/  /  dial   i  npu t s 

//  window  acquisition  X  coordinate 

//  window  acquisition  Y  coordinate 

//  window  acquisition  Z  coordinate 


vgs  ys . h 


10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 


// 

// 
// 
// 
// 


8   // 
9 


NOTE: 


DO    NOT   ALTER   THE    CONTENTS    OF    THIS    VECTOR! 


These    variables    are     the    vector    general    picture     initialization 
Instructions    and    data    words.       The     loader    assigns     the    variables 
sequentially    allowing    theui    to    be     treated    as    a    vector.        The 
order    of     the    variables    cannot    be    changed    without    affecting 
the    operation    of     the    vector    general. 


Int  vgs_ldfsl    C040000): 

int  vgs  _  f  s 1     CO): 

int  vgs_fs2    C013; 

int  vgs_lpsr    [040021  ); 

Int  vgs_psr    C077761}; 

int  vgs_ldpd    C040047); 

int  vgs_pdxr    (0); 

Int  vgs_pdyi-     C013; 

int  vgs_xmcr    C040057); 

int  vgs_xpir    (03); 

Int  vgs_lf2    C 040064 3; 


//  load    function    switch    unit     1 

//  function    switch    lamp    bits    0-7 

//  function    switch    lamp    bits    8-15 

//  load    picture    scale 

//  picture    seals,     terminate 

//  load    post    d i a p lacemen t 

//  post     X-d  isp  lac  emen  t 

//  post     Y—  d  Isp  1  ace  men  t ,      terminate 


//       load    function    switch    unit    2 
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22 

1  it  t 

23 

int 

24 

Int 

25 

Int 

26 

int 

27 

int 

vBs_fs3    CO); 
vffs_ff>4    C01); 
vgs-lstk    C  0-100  17); 
vg3_s tk    CO)  ; 
vga-lmar    C 0400 16); 
vgs_mar    CO); 


//  function    switch     lamps    0-7 

//  function    switch    lamps    8-15,     term. 

//  load    stack    pointer 

//  stack    pointer,      termina  te 

//  load    memory    address    register 

//  memory    fetch    address,      term. 
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APPENDIX  C 
COMPILE  TINE  CONSTANTS 


The  file  listed  here  contains  the  defined  constants  used  through  the  Inter- 
face routines. 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 


vgde f . h 


*       NOTE;  beware    of     the    relation    that    exists    between    groups 

>-  o  f    de  f  i  lies 


:*/g 


^define    NELE  10 

^define    ELISTSIZ   70 

^define    VCOBJSIZ    89 


^'define    NOB  J  10 

^'define    OUSTS  IZ   33 


#defiue    NSTACK      6 
^define    NKQUE         6 


//  max    man    of    elements    per    object 

//  size    of    element     list    buffer. 

//  This     is    equal     to    NELE    *    7 

//  size    of    work    buffer; 

//  must    be     19+ELISTSIZ 

//  max    nun    of    objects    per    picture 

//  object    buffer    size.       This     is 

//  equal     to    (N0BJ    +     1)     *    3 

//  size    of    subroutine    stack 

//  size    of    keyboard    char    queue 


//       The    following    are     the    read/write    defines     for     1/0 


*def 
#def 
#def 
#def 
*'def 
#def 
#dof 
#def 
#def 
^def 
#def 
•*def 


**def 
#def 
#def 
*'def 
#def 
*def 
#def 
-fdef 
#def 
#def 
#def 
#def 
■^def 
#def 


ine 
ine 
i  ne 
i  ne 
i  ne 
i  ne 
i  ne 
Ine 
ine 
i  ne 
ine 
ine 


ine 
i  ne 
ine 
ine 
i  ne 
i  ne 
Ine 
ine 
i  ne 
i  ne 
ine 
i  ne 
ine 
i  ne 


CND-READ    1 
CMD- WRITE   2 
D ISP-READ   3 
D ISP- WRITE   4 
CTRL_READ   5 
CTRL- WRITE   6 
FNSW-READ   7 
FNSW-WRITE   8 
DIAL-READ   9 
DIAL-WRITE    10 
CNVT-R.EAD    1  1 
KYBB- WRITE    12 


*'de  f  ine 
»de f  ine 
*def  ine 
#def  ine 
#de f  ine 


ROT 

CSR 

DXYR 

I  OR 

ISR 

PSR 

POST 

NPH 

NDB 

MEP 

PIP 

SP1 

PIK 

PIS 

CLEAR 

SET 

PIC 

OBJ 

ELE 


0 

1 

2 

3 

4 

5 

6 

8 

9 

13 

5 

0 

Li 

2 

0 

1 
0 

1 


//  read    vg    commands 

//  write    vg    commands 

//  read    display 

//  v.t  i  te     to     di spicy 

//  read  vg  controller 

//  write  vg  controller 

//  read  function  snitches 

//  unused 

//  read  dial  positions 

//  unused 

//  get  user  base  address 

//  unused 


//  rotation  matirx 

//  coordinate  scale 

//  X,Y,Z  coordinates 

//  intensity  offset 

//  in  tens ty  scale 

//  picture  scale 

//  post  X,Y  coordinates 

//  1  ight  pen  ha  1 t 

//  display  blink 

//  enable  light  pen  interrupt 

//  light  pen  interrupt 

//  light  pen  sense  switch 

//  keyboard  interrupt 

//  manual  interrupt 

//  clear  f  lag 

//  set  flag 

//  Picture  type 

//  objec  t  type 

//  element  type 
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APPENDIX  D 
DEVICE  DRIVER 


Described  here  is  the  system  device  driver  maintained  as  part  of  the 
operating1  system.  The  interrupt  service  routines  for  the  vector  general 
and  the  service  routines  for  the  openO  and  closet)  system  calls  are  con- 
tained in  this  routine. 


1 

# 

2 

^include  ". ./param.h" 

3 

#  i  i ic  1  ud  e  "  .  .  /c  o  n  f  .  h  " 

4 

**  include  ".  ./user.h" 

5 

*»inc  lude  "  .  ./bu: 

f  .  h  " 

6 

**  include  ".  ./proc.h" 

7 

'Include  "../seg.h" 

8 

# 1 no  1 ud e  " .  . /s ys  tm.h" 

9 

10 

#de f  i  no 

VG 

0 

11 

*"de  f  ine 

VGDISP 

) 

12 

~de  f  i  ne 

VGCNTRL 

2 

13 

^de  f  i  ne 

VGFNSW 

3 

14 

#de f  ine 

VGD I AL 

4 

15 

*de  f ine 

VGC0NVT 

b 

1C 

#de  f  ine 

CLOSE 

0 

17 

~de  f 1 ne 

OPEN 

1 

18 

#de f i  ue 

VGADDR 

0167770 

19 

#def i  ne 

SARO 

0 

20 

#de  f  i  ne 

SARI 

1 

21 

**de  f  ine 

SAR5  2 

064 

22 

#de f  i  ne 

SAR70 

0106 

23 

#def  ine 

AKC 

040000 

24 

^de f  ine 

SCL 

01C00 

25 

«'de  f  1  ne 

AXWCSD 

01766C0 

26 

*  d  e  f ine 

BUSY 

1 

27 

*de f  i  ne 

IDLE 

0 

28 

29 

//   four 

•  I/O  channels  i 

30 

31 

s  t  rue  t  ( 

32 

int 

ddo; 

33 

int 

p  1  o  x  5 

34 

Int 

ma  ; 

35 

int 

pio  ; 

36 

); 

37 

38 

s true  t  b 

•  uf  rvgbuf  ; 

39 

40 

41 

char  vglk  ( 

42 

char  dis 

plk  (0)  ; 

43 

char  c  t r 

Ilk  CO); 

44 

char  fns 

wlk  CO}; 

45 

c  ha  r  d  i  a 

Ilk  CO); 

46 

char  keybdlk  CO); 

47 

char  vg  1 

ock  CO) ; 

48 

char  dis 

play; 

49 

char  esc 

CO); 

50 

int  vgbu 

if  t  80]  ; 

51 

int  c  loc 

ken  t  ; 

52 

int  c  loc 

kref  C33; 

53 

int  base 

; 

54 

int  b  a  d  d 

rl; 

55 

int  badd 

rx; 

56 

int  i  ; 

57 

int  vgaddr ; 

58 

int  vgcore ; 

59 

int  tfvgp 

■  roc  ; 

//  minor  device  0 

//  minor  device  1 

//  m  i  no  r  device  2 

//  minor    device    3 

//  minor    device    4 

//  minor    device     5 

//  restrict    access     f  leg 

//  permit    access     flag 

//  PDP-11    address    o f    VG 

//  VG    res   command 

//  VG    reg    command 

//  VG    reg    command 

//  VG    reg    co  mina  nd 

//  ack.     frame    clock    Interrupt 

//  stop    £.    clear    disp    controller 

//  ack    all     interpt    S    reset    disp 


the    PDP-11 


//  direct  data  output 

//  extended  prog  I/O 

//  memory  address 

//  prog  1/0 


//  minor  device 

//  minor  device 

//  minor  device 

//  minor  device 

//  minor  device 

//  minor  device 

//  VG  system  lock 

//  display  active  flag 

//  ASCII  escape  flag 

//  VG  register  buffer 

//  frame  clock  count 

//  frame  clock  ref  count 

//  proc  base  address 

//  display  base  address 

//  extended  memory  bits 

//  buffer  address 

//  real  core  address 

//  pointer  to  real  time  process 


0 

lock 

1 

lock 

2 

lock 

3 

lock 

4 

lock 

5 

lock 
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60 
61 

62  vgopen(  <le  v,  f  1  ag)  C 

63  switch  (dov.d_minor)  t 

64  case  VG:  (  //   channel  for  virtual  to  real 

65  If  (vglk  ==  OPEN)  C       //   address  conversion 

66  u.u_error  =  EIO; 

67  re  turn ; 

68  3 

69  vglk  =  OPEN; 

70  break; 

71  } 

72  case  VGDISP:  (  //   channel  for  display  lists 

73  if  (dlsplk  ==  OPEN)  C 

74  u.u.error  =  EIO; 

75  return; 

76  3 

77  dlsplk  =  OPEN; 

78  break; 

79  3 

80  case  VGCNTRL:  C  //   channel  for  driver  control 

81  If  (ctrl Ik  ==  OPEN)  f 

82  u.u_error  =  EIO; 

83  return; 

84  } 

85  ctrl Ik  =  OPEN; 

86  break; 

87  3 

88  case  VGFNSW:  C  //      channel  to  obtain  function 

89  if  (fnsvlk  ==  OPEN)  C    //   switches 

90  u.u-error  =  EIO; 

9 1  re  t  urn ; 

92  3 

93  fuswlk  =  OPEN; 

94  break; 

95  3 

96  case  VGDIAL:  C  //   channel  to  obtain  dial 

97  If  (dlallk  ==  OPEN)  C    //      positions 

98  u.u— error  =  EIO; 

99  return; 

100  3 

101  dial  Ik  =  OPEN; 

102  break; 

103  3 

104  case  VGC0NVT:  C  //      channel  for  real  to  virtual 

105  if  (keybdlk  ==  OPEN)  {   //   address  conversion 

106  u.u_.error  =  EIO; 

1 07  re  turn ; 

108  3 

109  keybdlk  =  OPEN; 

110  break; 

111  3 

112  default:  C 

113  u.u-error  =  EIO; 

114  returns 

115  3 
1  16     3 

1 17  if  (dlsplk  38  ctrl Ik  38  fnswlk  83  dial  Ik  88  keybdlk  83  vglk) 

118  ( 

119  vgproc  =  n,n_procp! 

120  //  if (sr t ime(0)  !=  0)  //   make  process  real  time 

121  //  C 

122  //  vSc  lose(  )  ; 

123  //  u.u-error  =  EACCES; 

124  //      return; 

125  //  3 

126  VGADDR->pio  =  SCL I AKC ;        //      clear  3  reset  VG 

127  vglock  =  OPEN;  //   enable  VG  system 

128  display  =  IDLE; 

129  3 
1303 

131 
132 
133 
134  //       The  Vector  General  is  a  dedicated  device.   Therefore, 
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135  //        Jf    one    rjlrxor    device     is    closed    access     to    all    minor    devices 

136  //   Is  restricted. 
137 

138  vgclose(dev)     C 

139  vglk    =    CLOSE; 

140  vglock    =    CLOSE; 

141  displk    =    CLOSE; 

142  Ctrl  Ik    -    CLOSE; 

143  fuswlk   =    CLOSE; 

144  dial  Ik    =    CLOSE; 

145  keybd Ik    =    CLOSE; 

146  VCADI)R->pio    =    SCL;  //      clear    8    reset    VC 

147  no nr t ime () ;  //      make    process    non    real     time 

148  } 
149 

150 
151 
152 
153 
154 

155  vgstrategy(abp) 

156  struct    buf    *abp;     C 

157  register    struct    buf    ^bp; 
158 

159  bp    =    abp; 

160  vgcore    =    bp->b_addr;  //      save    real    address    of    buf 

161  if(display   ==     IDLE) 

162  f 

163  base    =    vgproc-) p_addr ;       //       save    base    address    for    real 

164  //       to    virtual    address    conversion 
165 

166  swi  lch(Lp->!)_2ineia)  //      set    extended    memory    bits    for    VG 

167  C 

168  case  00:  //   0-32k  address  block 

169  C 

170  baddrx  =  0; 

171  break; 

172  ) 

173  case  01:  //      32-64k  address  block 

174  C 

175  baddrx  =  024; 

176  break; 

177  ) 

178  case  10:  //   64-96k  address  block 

179  £ 

180  baddrx  =  050; 

181  break; 

182  3 

183  case  11:  //   96- 128k  address  block 

184  C 

185  baddrx  =  074; 

186  break; 

187  ) 

188  ) 

189  3 

190  u.u_count    =    0;  //      make    sys    believe     1/0   complete 

191  lodone(bp)  ; 

192  3 
193 

194 
195 
196 
197 
198 

199  vgwrite(dev,f lag)     C 

200  if    Cvglock   ==    CLOSE)     C 

201  u.u_error    =    EBADF; 

202  return; 

203  3 

204  switch    (dev.d_winor)     { 

205  case    VGDISP:     C  //      send    display    list     to    VG 

206  phys  io( vgstra tegy.Srvgbuf , dev, B_WR1TE)  i 

207  baddrl    =    vgcore; 

208  if (display    ==     IDLE)     ( 

209  display    =    BUSY; 
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210  vgstarH); 

211  3 

212  return; 

213  } 

214  case  VG:  f.  //       save  real  address 

215  phys  io( vgstra t egy.Srvgbuf.de v,B_WRITE)  ; 

216  vgaddr    =    vgcore; 
2  1 7                                     re  i  tirn ; 

210  3 

219  case  VCCNTRL:  C  //      set  user  refresh  rate 

220  clockref  =  epassO  ; 

221  return; 

222  } 

223  default:  C 

224  u.u_error  =  E10; 

225  return; 

226  3 

227  ) 

228  ) 
229 

230 
231 
232 
233 
234 
235 
236 
237 
238 

239  vgpassc(abp)  //       pass    data    from    here     to    user 

240  lul    abp;  //      NOTE:  user    is    responsible 

241  C  //       for    correct    byte    count 

242  char    *bp; 

243  bp    =    abp; 

244  whi le( pnssc(*bp)     >  =    0)     bt>++ ; 

245  3 
246 

247 
248 
249 
250 

25  1 

252  vgread(dev, f lag)     f 

253  if    (vglock    ==    CLOSE)     C 

254  u.«_error    =    EBADF; 

255  re  turn; 

256  ) 

257  switch    (dev.d-iaiivor)     t 

258  case    VGCNTTIL:     C  //       rend    VG   registers 

259  VGABDR->plo    =    SAR0; 

260  for    ( 1=0; i<80; 1++)    vgbufti]    =    VCADDR->pio; 

26  1  break; 

262  3 

263  case    VGFNSV    :     C  //       read    VG    function    switch    registers 

264  VGAJ)DR->plo    =    SAR0 ; 

265  vgbufCOD    =    VGADDR->pio; 

266  VGADDR->pio    =    SAR52; 

267  vgbuf[52J     =    VGAl)DR->plo; 

268  break; 

269  3 

270  case  VGDIAL:  C  //   read  VG  dial  post  ions 

271  VGADDR->plo  =  SAR70 ; 

272  for  (  i  =  70;  K80;  1++) 

273  { 

274  if    <!<=     100);  //       waste     time 

275  vgbufCi]     =    VGADDR->pio; 

276  3 

277  break; 

278  3 

279  case  VGDISP:  C  //   read  last  update  of  VG  registers 

280  break; 

281  3 

202  case  VGC0NVT:  C  //       send  real  basea  address  to  user 

283  vgpassc ( fibase ) ; 

284  return; 
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285  3 

236  case  VG:  C  //      send  real  address  lo  user 

287  vgpassc(  8vgaddi>)  ; 

283  return; 

289  3 

290  default:  C 

29  1  n.u_error  =  EIO; 

292  re  turn; 

293  3 

294  3 

295  vgpassc(vgbuf);  //   send  VG  registers  to  user 

296  re  t  urn; 

297  3 
298 

299 
300 
301 
302 
303 

304  vgstart(  )     C 

305  clockent    =    0; 

306  VGADDR->piox    =    baddrx;  //      set    VG   extended    neroory   bits 

307  VGADDR->ma    =    baddr  1  ;  //      send    VG   display   address 

308  VGADDR->pio    =    AKVCSD;  //      start    VG   operation 

309  ) 
310 

31  1 
3J2 

313  //      VG    frame    clock    interrupt    handler.       When    enabled    frame 

314  //       clock    interrupts    occur    every    8.33    msec. 
315 

316  vgclockO     C 

317  lf(vglock    ==    CLOSE)     return; 

318  VGADDR->plo    =    AKC;  //      akc     frame    clock    iutrp 

319  if     (++clockcnt     ==    clockref)     C  //       refresh    I ho    display 

320  VGAI»3)R->pio    =    SCL; 

321  vgstar t(  )  ; 

322  3 

323  3 
324 

325 
326 
32? 
328 

329  //       The    current    VG    interface    software    makes    no    use    of    the 

330  //       P-bit.       However,     the    P-b i t     interrupt    handler     is    required 

331  //      for    system   compatibility. 
332 

333  vgpbit( )     C 

334  3 
335 

336 
337 
338 
339 

340  //      VG   device     Interrupt    handler.       Called    whenever 

341  //       the    VG    keyboard     is    depressed,     the    manual     interrupt    switch 

342  //       is    depressed,    or    a    light    pen    interrupt     is    detected    by 

343  //       the    VG. 
344 

345  vgdev( ) 

346  t 

347  if    (vglock    ==    CLOSE)     return; 

348  VGADBR->pio    =    SAR0;  //      get    VG    interrupt    state 

349  for(  i  =  0;  i<  11;  i++)     vgbuftll     =    VGAL!DR->  p  lo  ; 

350  VGADDR->plo    =    SAR52; 

35  1  vgbuf[52]    =    VGADDR->pio; 

352  lf(  !esc) 

353  ( 

354  ifCvgbuf [418010  88  vgbufLll  ==  012000) 

355  t 

356  ps Igna 1 ( vgproc , 2) ;  //   terminate  the  process 

357  goto  akc; 

358  3 

359  if Cvgbuf [418010  88  vgbuflll  ==  015400) 
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360 

{ 

361 

esc++  j 

362 

go  to  akc ; 

363 

} 

364 

ps  igJia  1(  vgproc  , 

,  15)  ; 

365 

} 

366 

e 

lse 

esc —  ; 

//      send    the    user    tlie     interrupt 
) 
else    esc — ; 
36?    akc : 

368  VGADDIWplo    =    vgl>uf[4]     <<    O;  //      ackowlcdge     interrupt 

369  ) 
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APPENDIX  E 
INTERFACE  ROUTINES 


Contained  here  are  the  interface  routines  grouped  by  files.   The  files   are 
in  alphabetical  order. 

vge  1  e  .  c 


1  # include  "vgdef.h" 

2  #inc lude  "vgglob.h" 

3  #inc lude  "vgobj . h" 
4 

5 
6 
7 

8  /*  * 

9  *   Add  an  element  to  an  object.   Possible  return  codes  are:  * 

10  *  -1    illegal  object  number  * 

1 1  *  - 2   no  nexistant  object  * 

12  *  -3   object  cannot  access  more  elements  * 

13  *  -4   element  number  is  out  of  range  * 

14  *  -5   user  display  buffer  is  less  than  6  bytes  # 

15  *  ~6   user  buffer  address  Is  zero  * 

16  *        normal  return  is  the  element  number  * 

17  *  */ 
18 

19  vgadde le ( abp , num, s ize ) 

20  int  abp;  //       user  element  buffer 

21  int  num;  //   object  number 

22  int  size;  //   num  bytes  in  user  buffer 

23  { 

24  int  i,,)i 

25  int    *bp;  //       buffer    pointer 
26 

27  if((bp=abp)     ==     0)     return(-G);  //    check    for    buf    addr    of    0 

28  if(size&01     II     ( s ize=> > 1 )< =3)     returu(-5);  //    check   byte    count 

29  i  f  (  num<  =0)     return(-l)  ;  //    check   object    number 

30  /*  * 

31  *   Search  all  the  object  structures  for  the  object.  * 

32  *  */ 

33  for(  1  =  0;  KNOBJ;  i++)   i  f  (  vgob  J  [  i  1  .  vgnura  ==  num)  break; 

34  lf(i  >=  N0BJ)  return(-2);  //       object  doesn't  exist 

35  /#  * 

36  *   Find  the  first  empty  element  location  in  the  object  * 

37  *   structure.  * 

38  *  */ 

39  for  (  j= 1 ; j<ELISTSIZ; j  =+  7) 

40  if  ( vgobjC i] . vge le[ j]  ==  0)  break; 

41  If  ( j  =  =  ELISTSIZ)  return(-3);  /s      no  empty  elements 
42 

43  i  f  (  (  +  +  vge  lenum)  >  256)  retum(-4);     //   no  empty  elements 

44  /*  * 

45  *   Fill  the  last  3  words  of  the  element  buffer.  * 

46  *  */ 

47  *<bp    +    (slze-D)     =    044016;  /V        Id    MAR    from    stack    inst 

48  *(bp    +(size-2))     =    024;  //       term    char    mode 

49  *<bp    +(slze- 3))     =    015;  //       term    all    modes    exept    char 

50  /*  * 

51  *   Fill  t  he  e 1 e  me  u t  wo  rds  associated  with  t  he  object.  # 

52  *  */ 

53  vgobj[ 1] . vge le[ J+6]  =  044016; 

54  vgob J [ i ] . vge le [ J+5]  =  vgentr 1 ( bp) 101; 

55  vgobj[ 1] . vgeleC J+4]  =  0400  16; 

56  vgobjl  i] . vge le[ J+3I  =  074216; 

57  vgobj[ i] . vgelel j+23  =  046201; 

58  vgobjC  i]  .  vgele[j+U  =  040005; 
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59  vgobj[ 1] . vge le[ j]     =  (  vge  lenum<  <  8)  I  0  1  ; 

60  vgobj!  i]  .  vge  le[  J-l]  =  040022  ; 

61  re t ur n( vge lenum) ; 

62  ) 
63 

64 
65 
66 
67 
68 
69 
70 
71 
72 

73  /*  * 

74  *       Delete     the    element    by    searching    all    object    structures  # 

75  *       for     the    given    element.       Possible    return    codes    are:  * 

76  *  0         normal    return  # 

77  *  ~2      element    does    not    exist  * 

78  #  -4       element    nuiuier     is    out    of    range  * 

79  *  */ 
80 

81  vgde  1  e  le (  nura) 

82  int    nura;  //      element    number 
83               C 

84  i  u  t     i , J  ; 

85 

86  if(num<=0     I  I     num>256)     returnC— 4);  //      check    element    nun 

87  /*  * 

83  *      Sequentially   search   all    object    structures    and    elements    for    the       * 

89  *       object    containing    the    element.  * 

90  *  */ 

91  for( i  =  0; i<N0BJ; i++) 

92  C 

93  for(  J= 1; J<ELISTS1Z; J    =+    7) 

94  C 

95  if ( vgobj[ 1] . vge leC J]  ==  0)  break; 

96  if  C vgobjC i] . vge leC J]  ==  ( ( num< < 8)  I  0 1 ) )  goto  found; 

97  3 

98  ) 

99  returnC-2);  //      element    doesn't    exist 

100  /*  * 

101  *       Delete     the    element    and    compact     the    remaining    elements.  * 

102  *  */ 

103  found: 

104  vhi le( vgobj[ 11 . vgele  Cj+7]  !=  0) 

105  C 

106  vgobjE  1]  . vge le[ J+6]  =  vgob jT  17  . vge 1 e [ J +  13]  ; 

107  vgobjE  i]  .  vge  leC  j:-5]  =  vgobj  [  i  ]  .  vge  le  [  j+ 12]  ; 

108  vgobjC U . vge leC J+2]  =  vgobj [ i ] . vge le [ J +9 ] ; 

109  vgobj C i] . vge le[ J ]     =  vgobj C 1 ] . vge le [ J +7] ; 

110  J  =+  7; 

111  3 

112  vgobjT i] .vgele [J-l]     =    044016; 

113  vgobjC i] . vgeleC J]     =    0; 

114  re  t urn( 0)  ; 

115  3 
116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

125    /*  * 

127       *       Modify    the     light    pen    and    display    blink    fields    of     the    MGR  * 

123      *       register    of    element.       Possible    return    codes    are:  * 

129  *  0  normal    return  * 

130  *  -2       element    doesn't    exist  * 

131  »  -4       element    out    of    range  * 

132  *  *' 
133 
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* 


134 

135  vge  leroodC  num,  f  ie  Id  ,  ac  t  ion) 

136  Int    num;  //      element    number 
137 

138  int     field;  /V       0400  light    pen    halt 

139  //      OH5O0         display  blink 

140  //       020000        light     pen    hit     detect      interrupt 
141 

142  char    action;  //      0    -    clear 

143  //       1    -    set 

144  ( 

145  int     i,j; 
146 

147  if(num<=0     II    nura>RELE)     retwrn(-4)j       //      check   element    number 

148  /* 

149  *       Find     the    object    containing     the    element. 

150  * 
151 

152  for    (  1  =  0;  KNOBJ;  i++) 

153  C 

154  for    (j=l; J<ELISTSIZ; J    =+    7) 

155  C 

156  if    (vgobjL 13 .vgelelj]     ==0)     break; 

157  if    (  vgobjf  i  J  .  vge  le[  j]     ==     (  (  imm<  <  8)  I  0  1  )  )     goto     f  ourd  1  ; 
153  3 

159  ) 

160  return(-2)j  //    element    doesn't    exist 
161 

162  /* 

163  #   Modify  the  light  pen  and  blink  control.  # 

164  *  */ 

165  found  1  : 

166  if (act  ion  ==  SET) 

167  vgobjf,  1J  .vgele[j+2]  =1  field; 

168  else  ifCaction  ==  CLEAR) 

169  vgobjf  iD  . vge le[ J+2]  -&    ~( f ie Id  I  0 100000)  ; 

170  re  turn(fl)  ; 

171  } 


vg  i  n  1  t  .  c 


1  *  include  "vgdef.h" 

2  # include  "vgglob.h" 

3  ^include  "vgsys.h" 

4  #  Include  "vgobj.h" 
5 

6 

7  extern  vgcrashC ) ; 

8  extern  vgd  p i  v(  )  ; 
9 

10 

11/*  * 

12  *   The  vector  general  initialization  routine  defines  all        * 

13  *   system  instructions  and  links  all  system  buffers.  % 

14  *  .       * 

15  *        If     the    process    can't    become    real-time    or     if    all    minor  * 

16  X-       devices    are    unable     to    be    opened     the    process     is     termi  na  ted  .        # 

17  *  */ 
18 

19 

20  vgini t( ) 

21  t 
22 

23  /*  * 

24  #       Open    all    vector    general    minor    devices.  * 

25  *  *S 
26 

27       if  (vgopenO   !  =  0)  vgcrash( ) ; 
28 
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29  /*  * 

30  *       Make     the    process    real-time.        This    call     Is    placed    here  * 

31  *      only    until     th<-    system    rtitueO     call     from    tlio    driver     level  * 

32  *       can    be    debugged.         It    should    be    a    call    at     the    driver     level  # 

33  *       when    all    minor    devices    are    opened.  * 

34  *  */ 
35 

36  lf(rtlrae(0)     !=    0) 

37  C 

38  perror(  "rtlme  error")  ; 

39  vgcrashC ) ; 

40  3 
41 

42  s Igna 1 ( 2, vgcrash) ; 

43  s  igna 1(15, vgdp  i v)  ; 
44 

45       vgeloek(40);  //   set  default  refresh  rate 

46 

47  vgs  _ma  r   =  vgo init()  ! 0 1 ;  //       ge  t  address  of  objlist 

48  vgs_stk  =  vgcnl r 1 ( vgs tack) 101:        //   stack  addr  in  MAR  format 

49  vgstacktOl  =  vgentr 1 ( Svgid le) 101;     //  stack  underflow  protection 

50  vgidle  =  030000;  //  halt  instruction 

51  vglpflag  =  0;  //     light  pen  interrupt  flag 

52  vglpsflg  =  0;  //  light  pen  sense  switch  flag 

53  vgkflag  =  0;  //    keyboard  flag 

54  vgkptr  =  0;  //  keyboard  queue  pointer 

55  vgkque f 1  =  0;  //    keyboard  input  flag 

56  return; 

57  3 
58 

59 
60 
61 
62 

63  /*  * 

64  *   fill  buffer  with  the  post  X— coordinate  and  the  post  * 

65  *  Y— coordinate  values.   The  values  that  px  and  py  may  assume  % 

66  *   ore  0177760  (-2048)  through  077760  (2047).  * 

67  *  */ 
68 

69  vgpos t< px, py) 

70  int  px;  //   post  X-coordinate 

71  int  py;  //   post  Y-coordinate 

72  t 

73  vgs_pdxr  =  px  < <  4; 

74  vgs_pdyr  =  py  <<  4; 

75  3 
7 

77 
78 
79 
80 

81  /«  * 

82  #   Set /CI ear  the  function  switch  lamps.   Each  bit  set  in  the    * 

83  *   input  buffer  will  affect  one  lamp.  * 

84  *  *' 
85 

86  vglamps(abp) 

87  int    abp;  //       two    word    buffer    pointer 

88  C 

89  int    *bp; 

90  if(abp==0)     return(-6); 
9  1               bp    =    abp; 

92  vgs_fsl    =    *bp    8    0177400; 

93  vgs_fs2    =    ((*bp    &    0377)     <<    8)101; 

94  vgs_fs3    =    *<++bp)     &    0177400; 

95  vgs_fs4    =     ((*bp    8    0377)     <<    3)101; 

96  3 
97 

98 
99 
100 
101 

102  /*  * 

103  *       Modify    the    picture    parameters.  * 
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104  *   The  values  field  can  assume  are:  # 

105  *  */ 
106 

107 

108  vgp icraod(  f ie Id , ac t Ion) 

109  int     field;  //       0400  light    pen    halt 
'10                                                                          //       010G0          display    blink 

111  //      02'JOOO       light    pen    hit    detect     interrupt 

1  12 

113  Int    action;  //      0         clear 

114  //       l  Set 
115 

116  t 

117  int     1; 
118 

119  1=0; 

120  vhi Ie(  i<N0DJ)     vgobjmocK  vgohjt  1++]  .  vgnum,  f  ield.ac  t  ion)  ; 

121  ) 
122 

123 
124 
123 
126 

127  /*  % 

128  *       Start     the    display.  * 

129  *  */ 
130 

13 1  vgp 3  c  ture( ) 

132  { 

133  vgpio(Svgs_ldfsi ,DISP_KR1TE) ;  //      start    display 

134  ) 
135 

136 
137 
138 
139 

140  /*  # 

141  *       Modify    the    picture    scale.        The    range    of    values    are    0-1.  % 

142  *  :,;/ 
143 

144  vgpseaH  val) 

145  double    val;  //       picture    scale    value 

146  C 

147  Int     tempi  //       temp     integer    value 

148  temp    =    val    *    2047; 

149  vgs-psr    =     (  temp<<4)  101; 

150  re turn<0) ; 

151  } 


vg i  n  t  r . c 


1  'include     "vgde f.h" 

2  # include     "vgglob.h" 

3  'include     "vgreg.h" 
4 

5 

6  /*  * 

7  *       v/hen    a     light    pen    interrupt,     a    sense    switch    interrupt,     a  * 

8  *       keyboard     interrupt,     or    a    manual     interrupt    occurs        the  * 

9  *  VG  system  interrupt  driver  passes  the  interrupt  to  the  * 
10  *  user  via  this  routine.  % 
1  1       *                                                                                                                                                                                                 * 

12  #       NOTE:  interrupts    are    passed    via    signal     15  * 

13  *  */ 
14 

15  vgdp  iv() 

16  C 

17  Int     1; 
18 
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19 
20 
21 

22 
23 
24 
25 
26 
27 

2a 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 


s  Igna  1(15,  vgdpl v)  ; 
vgpio(8vg_fs,DISP_rlEAD)  ; 


//   get  Interrupt  stnte  from  VG 


for  <  i  =  0;  i<7;  1++)  i  f  (  (  vg_p  ir>  >  1 )  SO  1 )  swltch(i) 
C 


case  PIP: 


case  SP1 : 

C 

vglpiv( ) ; 

1)  r  e  a  k ; 

3 

case  PIK: 

C 

vgkp 1 v 

O  ! 

break; 

) 

case 

•  PIS: 

vgrepiv 

(  )  ; 

break; 

) 

} 

re 

turn; 

) 

//   light  pen  interrupt 

//   light  pen  sense  switch 
//   interrupt 


//   keyboard  interrupt 


//   manual  interrupt 


/* 


# 


light  pen  interrupt  handler 

store  the  resulting  light  pen  interrupt  values  i  ji  vglpbuf 
only  if  the  previous  interrupt  has  been  processed  by  the 
user  . 


* 
# 


vg  I  p  1  v(  ) 

I 

If (( vglpf lag= 
C 

vglpbufCO] 
vglpbuf C 1] 
vglpbuf [2] 
vglpbuf [31 
vgl pbuf [ 4] 
vglpbuf [5] 
vglpbuf [6] 
vg 1 pf lag++ ; 
} 

if    (vg_pirS01) 

) 


0)    88    (vg_pi r501)) 

=    vg_pir>>3; 
=    vg_ir: 
=    vg_vcr ; 
=    vg._xr>>4; 
=     vg_yv>  y  4  i 
=    vg_zr>>4: 
=    vg_peur 


vglpsf lg++ ; 


//  mode    8    control    reg 

//  instruction    word     re| 

//  -word    count    reg 

//  X-coord  inate 

//  Y— coordinate 

//  Z-coord inate 

//  pen    resolution,    byte 


* 

* 
* 


Vector  General  Keyboard  Character  Pivot 

■when  a  keyboard  character  interrupt  has  occured,  this  routine 

gels  the  keyboard  character  from  the  Vector  General 

places  it  in  vgkque ,  and  increments  the  character  flag, 

vgkflag,  to     indicate  a  character  has  been  input 


NOTE :    'Hie 
vgge  t car ( )  . 


vgkp lv()  C 

vgkf lag++ ; 
if  (vg_kbr 


user    should    empty    the    epieue    by   calling 


010000) 


* 

* 

* 
* 

* 
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94  vgkflag  =  0; 

95  vgkptr  =  C; 

96  vgkquefl  =  O; 

97  return; 
90  ) 

99  if  (vgkptr  ==  NKQUE)  vgkptr  =  0; 

100  vgkqueL  vgki>tr  +  +  ]  =  vg_kbr; 

101  3 
102 

103 
104 
1G5 

106  /*  * 

107  *   Vector  General  Manual  Interrupt  Pivot.  * 

108  *   when  a  manual  switch  interrupt  occurs,  this  routine  increments   * 

109  *   the  manual  interrupt  counter  # 

110  *  */ 
111 

1 12  vgmpiv< )  C 

113  vgmanint  +  + ; 
1  14       ) 

115 
116 
117 
1  18 
1  19 
120 
121 

122  /*  # 

123  *       kill     the    process.  * 

124  *       called    when    a    condition    reauircs    process     termination  tf 

125  *       i.e.      "rubout"    on    the    DATAMEDIA    terminal    or    CTRL   T  * 

126  *       on    the    vector    general    keyboard  # 

127  *  */ 
128 

129  vgcrashf )     C 

130  vgterraC ) ; 

131  exl t( ) ; 

132  ) 


vgobj . c 


1  # Include     "vffdef.hu 

2  *  Include     "•vgglob.h." 

3  -"include     "vgobj.h" 
4 

5 
6 
7 

8  /#  * 

9  *       Add     the    object     to     the    active    display    list.  * 

10  *       The    possible    return    values    are:  * 

11  *  0  normal     termination  * 

12  *  -1       object    number     is    neg. ,     zero,     or    greater     than    N0BJ  # 

13  *  -2       object    doesn't    exist  * 

14  *  -3       object     list     is     lull  * 

15  *  %/ 
16 

17  vgaddobj  (  nuin) 

18  Int  num;  //      object  number 

19  C 

20  Int  *addr;  //   object  address 

21  int  i,j; 
22 

23  lf(num<=0)  return(-l);   //   check  object  number 

24  If ( vgobj 1 ist[G]>N0BJ)  return(-3);    //   object  list  full 

25  /%  * 

26  *   Find  the  object  structure  with  the  desired  object  number  * 

27  *  */ 
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28  for(  i  =  0;  KNOBJ;  i++)      I  f  (  vgobj  [  1  ]  .  vgnum    =  =     num)     break; 

29  lf(l>=K0BJ)    return(-2);  //      object    doesn't    exist 
30 

31  J     =     vgobj  1  1st  C  03     *3; 

32  vgobj llsttj+23    =    vgcntrl(8vgldle) 101; 

33  vgobj listC J  +  13     =    040016;  //       load    MAR 

34  vgobjlist[j3  =    vo;en  1 r  J  (  ftvgobj  [  i  ]  .  vgnuni)  I  0  1  ; 

35  vgobj  1  istt  j-1]     =    040016;  //       load    MAR 

36  vgobj 1 istt j-2]     =    074216;  //      store    MAR    In    stack   8    mark 

37  vgobj 1 istC03++; 

38  re luru(0) ; 

39  3 
40 

41 
42 
43 
44 
45 
46 
47 
48 
49 

50  /*  * 

51  #       Find     the    object,     delete     it,     and     if     in    the    active    display    list  * 

52  *       compact     the    resulting    active    display    list.        Possible    return  * 

53  *       values    are:  % 

54  «  0  normal     return  # 

55  #  —1       object    number    out    of    range  % 

56  *  -2       object    doesn't    exist  * 

57  *  */ 
58 

59  vgde lobj ( num) 

60  int    num;  //      object    number 

61  C 

62  int  addr;  //       address  pointer 

63  int  i,J,k; 
64 

65  i f ( num< = 0 )  return(-l);   //   check  object  number 

66  /*  * 

67  #   Sequentially  search  the  object  structures  until  the  desired       * 

68  *   object  can  be  found.  * 

69  #  */ 

70  for(  i  =  0;  KNOBJ;  i  +  +)      i  f  (  vgobj  [  1  ]  .  vgnum=  =  num)     break; 

71  if(i>=N0BJ)    return(-2);  //      object    doesn't    exist 

72  vgobj [ 1 ] . vgnum    =    0;  //       delete     the    object 

73  /*  * 

74  #   Chock  if  the  object  is  in  the  active  display  list.    If  yes        * 

75  *   the  link  In  vgobj list  must  be  removed.    If  no  then  only  the       * 

76  *   object  number  must  be  zeroed.  * 

77  *  */ 

78  addr  =  vgentr 1 ( Svgobj [  i ]  . vgnum)  I  0 1 ; 

79  for(  J= 1 ;J< vgobj 1  is tCO]  ;J  +  +>  i f( vgobj 1  is t [ J*33 =  =  addr)  break; 

80  /#  * 

81  *   Compact  tho  resulting  display  list.  * 

82  *  */ 

83  if(  J<vgobjlist[0]) 

84  C 

85  vgobj lis t[0] — ; 

86  vgobj 1  1st [J*3]     =    vgobj 1  is tlvpobj list [03*33  ; 

87  vgobj 1 ist[ vgobj llst[OJ*33     =    vgcnlr 1 ( 8vgid le )  I  0 1 ; 

88  3 

89  re turn(0) ; 

90  3 
91 

92 
93 
94 
95 
96 
97 
98 
99 
100 

101  /*  * 

102  *   Find  an  unused  object  structure  and  initialize  the  structure 
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* 
* 
*/ 


//       fill    rotation    matrix 
//       tei'ialua  te 


103  *        to    nil    default    parameters.        Possible    return    codes    are:  * 

104  *  -0       a  1  1    objects    previously   defined  * 

105  *       Normal     return     is     the    object    number    assigned     to     the    new   oblect  # 

106  *  %/ 
107 

108  vgmkobj( ) 

109  C 

110  1 u  t     1  ; 
1  11    /* 

112       #       Find     the     first    unused    object    structure. 
1  13       * 

114  for(  1  =  0;  KNOBJ:  i  +  +  )     if  (  vgobjt  1]  .  vgnum=  =  0)     break; 

115  if(i>=N0RJ)     return(-3);  //       all    object     in    use 

116  vgobj  [  i  ]  .  vgnum    =    ++vgcurobj; 

117  vgobj[l].vSior    =    077760;  //        Intensity    offset 

118  vgobjt  H.vgisr    =     01;  //       intensity    scale,     terminate 

119  vgobj [ i] . vgcsr    =    037760;  //      coordinate    scale 

120  vgol»j[i].vgx  =     C000000;  //       X-coord  ina  te 

121  vgobj[ i] . vgy         =    0000000:  //      Y-coordinate 

122  vgobjf.i3.vgz  =0;  //      Z-coorJ  hiate 

123  vgobj [ i3 .vgrotC 03     =    077760: 

124  vgobj [ 13 . vgrot[4]     =    077760; 

125  vgobjC i] . vKro tt83     =    077761 

126  re  turn(  vgobj  [  i  3  .  vguuin)  ; 

127  3 
128 

129 
130 
131 
132 
133 
134 
135 
136 
137 

138  /*  * 

139  *   Modify  the  object  as  Indicated  by  the  input  parameter.  * 

140  $   Poss ib  le  re  turn  codes  are :  * 

141  *  0    normal  return  * 

142  *  —1   object  number  out  of  range  * 

143  *  -2   object  doesn't  exist  * 

144  *  %/ 
145 

146  vgob Jmod( nun, fields, act  ion) 

147  i  ii  t  nura;  //   object  number 
148 

149  int  fields;  //   0  -  rotation  matrix 

150  //        1  —  coordinate  scale 

151  //      2.    -    X.Y.Z  coordinates 

152  //   3  -  intensity  offset 

153  //   4  -  intensity  scale 

154  //   8  -  light  pen  halt 

155  //       9  -  display  blink 

156  //       13  -  light  pen  interrupt 
157 

158  char  action;  //   0  —  clear 

159  //   1  -  set 

160  t 

161  int  ptr;  //       pointer  to  object  to  be  modified 

162  int  obj;  //   ptr.  to  obj.   in  obj .  buf.   list 

163  int  i,j; 

164  int  taddr;  //   temp  MAR  addr  of  object 

165  int  ■'i'addr;  //   address  of  an  object 

166  char  active;  //   object  in  active  display  list 
167 

168  If (nun  <=  0)  return(-l);  //  check  object  number 

169  /*  * 

170  *   Sequentially  search  the  object  structures  for  the  desired         * 

171  *   object.  * 

172  *  */ 

173  f or( ptr=0; ptr< N0BJ ; ptr++)  i f( vgobj [ ptr }. vgnum  ==  uun)  break; 

174  if  ( ptr> =N0BJ)  return(-2);  //       object  does  not  exist 

175  /*  * 

176  *       Check    the    active    display    list     for     the    object     to    be    modified.  * 

177    *  *y 
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178  addr  =  8vp;ohj[ptr]  .vgnnm; 

179  taddr  =  vgontr  Kaddr)  10  J  ; 

180  for(obJ=  1  ;ol>j<  vgobj  1  is  t  [  0]  ;  obJ  +  +  )  if (vgobj  1  is  t  [  ob  J  *3]  =  =  t  addr  )  break; 

181  /*  # 

182  *   Hake  a  copy  of  the  object  and  link  the  copy  to  the  active         * 

183  X   display  list.  % 

184  *  */ 

185  active  =  0; 

186  if  (obj  <  vgobj lis t[0] ) 

187  t 

188  for(  i  =  0;  KVGOBJSIZ;  i++)    vgworkbuftl]    =    *(addr++); 

189  taddr    =    vgob J  1  is 1 1 ob J *31  ;  //       save    MAR   addr    of     the    org.     obj 

190  vgobj  1  is  tEobj::c3J     =     Vgcil.tr  1  (  vgworkbuf  )  I  0  1  ; 

19  1  actlve++;  //      set    object    active    flag 

192  ) 

193  /*  * 

194  *       Make     the    modifications     to     the    orginal    object.  * 

195  *  */ 

196  for( 1=0; i< 16; i++) 

197  ( 

198  if  ( (f ields>> i)S01)  switch(i) 

199  C 

200  case  ROT:  //   rotation  matrix 

201  C 

202  for( J  =  0; J<9; j++)  vgobj [ pt r ] , vgro t  [  J ] = vgf _ro t  [  J ] < < 4  ; 

203  vgobj  [ptr]  . vgrotC8]  =1  01; 

204  break; 

205  ) 

206  case  CSR:  //   coordinate  scale 

207  { 

208  vgobj [ ptr ]. vgcsr  =  vgf_csr<<4; 

209  break; 

210  ) 

211  case  DXYR:  //   X,Y,Z  coordinates 

212  C 

213  vgobj C ptr] .vgx  =  vgf_dxr<<4; 

214  vgobj [ p tr J . vgy  =  vgf_dyr<<4; 

215  vgobj [ ptr 3. vgz  =  vgf_dzr<<4; 

216  break; 

217  ) 

218  case  10R:  //   intensity  offset 

219  { 

220  vgobj [ ptr ]. vg lor    =    vgf_ior<<4; 

221  break; 

222  } 

223  case  JSR:  //   intensity  scale 

224  { 

225  vgobjCplr]  . vgisr  =  ( vgf _ lsr< < 4)  I  0 1 ; 

226  break; 

227  } 

228  case  M?H:  //   light  pen  halt 

229  case  MDB:  //   display  blink 

230  case  HEP:  •/   enable  light  pen 

231  ( 

232  if (act lon==SET) 

233  for  (j  = 1 ; j<ELISTSIZ; J=+  7) 

234  C 

235  if ( vgobjCptr] . vge le[ J]==0)  break; 

236  vgobjLptr] . vge leT J+2]  =1  K<i; 

237  ) 

238  lf(action  ==  CLEAR) 

239  for(j=l;j<ELISTSIZ; J=+  7) 

240  C 

241  lf<v-obj[ptr] . vge le[ j]==0)     break; 

242  vgobj[plr]  . vge le[ J+23=8    ~( (  1< <  i )  i 0  100000)  ; 

243  3 

244  break; 

245  ) 

246  default: 

247  C 

248  break; 

249  ) 

250  ) 
25  1           ) 

252      if  (active)  vgobj 1  is tl obj*3]  =  taddr; 
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253 
254 
255 
256 
257 
258 
259 
260 
26  1 
262 
263 
264 
265 
•266 
267 
260 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
2e6 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 


re  turn( 0)  ; 
) 


/* 


initiate  the  object  buffer  list  and  fill  all  constant 
fie  Ids  . 


ini  t( ) 
C 

i  n  t     i  ; 
lut    J  ; 


* 

* 


J  =    l; 

vgcurobj    =    0; 
vge  le  nuin    =    0  ; 


Initialize     the    object     list    buffer 


vgobj  1  istCO]     =     1 ; 
vgobjllstC  1]     =    030000; 


Initialize    each    object    structure 


for(  i  =  0;  KK03J;  i++) 

C 

vgobj [ i] . vgl ior   =  049014 

vgobjl i] . vglcsr   =  040023 

vgobj[  13  .  vge  leLQ]  =  0440  16 

) 

re  turn( vgcntr 1 ( vgobj list))  ; 

} 


* 

//    set  first  object  number    * 
//       ha  1  t 

* 


//  load  intensity  offset  reg 
//  load  coordinate  scale  reg 
//  load  MAR  from  stack 


vgp lo . c 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 


# include  "vgdef.h" 

i  n  t  vgc t  r  1  ; 

Int  vgd  la  Is  ; 

1 n  t  vgd  i  s p ; 

int  vgfnswj 

int  vgcnvt  ; 

int  vgc  n:d  ; 


//  controller  file  descriptor 

//  dials  file  descriptor 

//  display  file  descriptor 

//  function  switch  file  descriptor 

//  keyboard  file  descriptor 

//  command  file  disc  rip  tor 


* 
* 


Convert  the  display  list  address  into  a  user  space  address 


* 


vgconvt ( abp) 
i  ii  I  abp; 
C 

int 
Int 
int 
int 


bp; 

base 


page  ; 

v  i  r  t  ua  1 ; 


//   display  list  address  pointer 


//   base  block  number  of  process 
//   most  sig  3  bits  of  address 
//   user  space  address 
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22  /*  * 

23  *   Convert  the  display  list  address  Into  a  real  address  * 

24  *  */ 
25 

26  page  =  (abp  8  016)  <<  12; 

27  abp  =  (abp>>3)  8  017776; 

28  bp  =  abp  I  page  ; 
29 

30  /*  * 

31  *   Get  the  base  block  number  of  the  process  * 

32  *  %/ 
33 

34      vgpio(8base,CNVT_READ) ; 
35 

36  /*  * 

37  #   Convert  the  block  number  into  an  address  and  convert  the  real    * 

38  *   addreas  into  a  user  space  address.  * 

39  *  */ 
40 

41  virtual  =  (bp  -  (base<<06))  -  02000; 

42  re turn( vir tua 1 ) ; 

43  3 
44 

45 
46 
47 
48 

49  /*  * 

50  *   Convert  the  user  space  address  into  a  real  address  5n  MAR        * 

51  *   forma  I  .  * 

52  *  */ 
53 

54  vgcntr l(nddr) 

55  lnt  addr;  //       user  space  address  pointer 

56  C 

57  lnt  * laddr;  //   logical  address 

58  lnt  r addr j  //   real  address 

59  lnt  roar;  //   VG  memory  address  register 

60  laddr  =  addr; 
61 

62  /*  * 

63  *   Get  the  real  address  of  the  user  space  address  * 

64  *  */ 
65 

66  vgplo<  laddr,  CMD_fcTRITE)  ; 

67  vCpio<Sraddr,Cffi>_READ) ; 
68 

69  /*  * 

70  *       Convert     the    real    address     into    MAR   format.  * 

71  *  *' 
72 

73  roar    =     (raddr)     >>      12; 

74  mar    =  8    016; 

75  mar    = I     (raddr<<3) ; 

76  re  t urn(  mar )  ; 

77  ) 
78 

79 
80 
81 
82 

83  /*  * 

84  *       Open    each    of     the    minor    devices    and    retain     the     file  * 

85  #       descriptors.     The    minor    device    number    and     the     file    descriptor  * 

86  *       associated    with    it     is!  * 

87  *  0         vgcrad  /dev/vg  * 

88  *  1  vgdisp  /dev/vgdp  * 

89  *  2  vgcntr 1  /dev/vgct  * 

90  *  3  vgfnsw  /dev/vgfs 

91  *  4  vgdials  /dev/vgdl 


93       * 
94 

95  vgopen( ) 

96  t 


> 


92       *  5  vgcnvt  /dev/vgkb  * 


*/ 
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97  If    ((vgcmd    -    open(  Vdev/vg"  ,2)  )     <     0)  //    minor    device    0 

90  t 

99  perrort  "open,    vgcmd    error")  ; 

100  re turn(-7) ; 

101  } 

102  if  (tvgdlsp  =  open(  Vdev/vgdp" ,2) )  <  0)       //  minor  device  1 

103  t 

104  perror(  "open  vgdlsp  error"); 

105  re turn(-2) ; 

106  } 

107  if    ((vgctrl     =    open(  "Alev/vgct  ",2)  )     <     0)  //    minor    device    2 

108  C 

109  perrort "onen    vgctrl    error"); 

1 10  returnt-3) ; 
HI  } 

112  If    ((vgfnsw    =    opent "/dev/vgfs " ,0) )     <     0)  //    minor    device    3 

113  £ 

114  perrort "open  vgfnsw  error"); 

115  re  turn(-4)  ; 

116  3 

117  if    ttvgdials    =    opent  "/<le  v/vgd  1  " ,  0)  )     <     0)  //    minor    device    4 

118  C 

119  perrort  "open  vgdials  error"); 

120  return(-5) ; 

121  ) 

122  if  ((vgcnvt  =  opent "/dev/vgkb " ,0) )  <  0)      //  minor  device  5 

123  C 

124  perrort "open  vgcnvt  error") ; 

125  retnrn(-6) ; 

126  } 

127  returnt 0) ; 

128  ) 
129 

130 
131 
132 
133 
134/*  * 

135  *       Vector    General    Read/Write    Routine  * 

136  *       all    communication    with    the    vector    general     is    handled    via     this  * 

137  *       routine.        The    mode    determines     the    tic  t  ion    to    be     taken.  * 

138  *       The    acceptable    values     for     the    mode    are:  * 

139  *  1    —    read    using    minor    device    0  # 

140  *  2    -    vrite     using    minor    device     0  Sc 
141*                              3    -    read    using    minor    device     1  * 

142  *  4    -    write    using    minor    devicel  * 

143  *  5    —    read    using    minor    device    2  * 

144  *  6    -    write-    using    minor    device    2  * 

145  *  7    —    read    using    minor    device    3  * 

146  *  8    -    \vt  i  te    using    minor    device    3  * 

147  *  9    --    read    us  ing    minor    device    4  # 

148  *  10    —    write    using    minor    device    4  * 

149  *  11    —    read    using    minor    device    5  # 

150  *  12    -    write    using    minor    device    5  * 

151  *       Return    of    —1     is     the    result    of    an    addressing    error.  * 

152  *  */ 
153 

154vgpio t  bp, mode) 

155  int  bp;  //   buffer  address  pointer 

156  int  mode;  //  type  I/O  operation 

157  C 

158  int  *abp; 
159 

160/*  * 

161  #   Check  buffer  address.   Do  not  perform  the  operation  is  the        * 

162  *   address  is  zero.  * 

163  *  */ 
164 

165  iftbp    ==    0)    vgcrasht ) ; 

166 

167  abp    =    bp; 

168  switch    (mode) 

169  t 

170  case    CfiD-READ:  //      calc    abs    address 

171  C 
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172 
173 
174 
175 
176 
177 
170 
179 
180 
181 
182 
183 
184 
185 
186 
187 
180 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
21  1 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
23  1 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 


f CreadC vKcmd,abp,2)  <  0) 

perrorf  "CriD_REAJ)  error")  ; 
rcaki 


CND-WRITE: 


//       get  abs  address 


f  Cwri  te(  vgemd,abp,2)     <    0) 

perrorC "CMD-VRITE    error") ; 

real;; 


DL-  V.READ: 


//       get     interrupt    registers 


1(-     ad    C vgdisp.abp, 166)     <     0) 

, errorC "DISP_READ    error") ; 
rcfik; 


D ISP-WRITE: 


//       sent    display    list 


f(wite(  vgd  isp,abp,10)  <  0) 

perrorC  "DlSr"— WRITE  error")  ; 
reak; 


CTRL-READ : 


//   gel  current  vg  register  value 


fCread  C vgc t r 1 , abp . 2)  <  0) 

perrorC  "CTRL-READ  error"); 
r  e  a  k ; 


CTRL-WRITE: 


//       sent    system    control    words 


f  Cwrl  te.C  vgc  trl  ,abp,2)     <    0) 

perrorC  "CTRL-WRITE    error")  ; 
reak ; 


FNSW-READ: 


//       get     fane    switch    value 


f (read    ( vgf nsw, abp , 166)     <     0) 
perror( "FNSW-READ    error") ; 

reak  ; 


FNSW_ WRITE: 
reak; 

DIAL_READ: 


//   not  used 


//   get  dial  positions 


f CreadC vgd ials, abp, 166)  <  0) 

perrorC  "DIAL-READ  error") ; 
reak; 


DIAL- WRITE: 
reak; 

CNVT-READ: 


//       unused 


//   get  base  address 


f ( readC vgcnvt , abp , 2)  <  0) 

perrorC "CNVT-READ  error") ; 
reak; 


KYBD-WRITE: 
reak; 


//   unused 
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247 

de  f au 1 t : 

248 

t 

249 

break; 

250 

} 

25  1 

) 

252 

} 

253 

254 

255 

256 

257 

253/*  £ 

259  *       Terminate    vector    general    operations.        Close    nil    minor    devices  * 

260  *       and    make     the    process    non    real-time.  # 

261  *  %/ 
262 

263vgterm(  ) 

264  C 

265  if (closef vgdisp)     <     0) 

266  perrort  "Close    error")  ; 

267  ) 


vgr  d  wr  i  .  c 


1  # include     "vgdef.h" 

2  '-'include     "vgreg.h" 

3  ^include     "vgglob.h" 
4 

5 

6  /*  * 

7  *       Get     the     ten    vector    general    dial    values.  % 

8  *  */ 
9 

10  vgdlal(abp) 

11  int    abp;  //       ten    word    buffer    pointer 

12  { 

13  int    *bp; 

14  int     i; 

15  if(abp==0)     returu(-6) ; 

16  bp    =     abp; 

17  vgpio(Svg_fs, DIAL_READ) ;  //       get    dial    values    from    VG 

18  for( i=0; i< 10; i++)     *(bp++)     =    vg_d ia 11 i ] > > 4 ; 

19  3 
20 

21 
22 
23 
24 

25  /"#  * 

26  *       get     function    switch    values  * 

27  *        the     thirty-two    values    of     the    VG    function    switches  * 

28  *       are    returned     to     the    user    via     tlje     two    word    buffer.  * 

29  *       A    bit     that     is    set    corresponds     to    a    VG    function    swi tch  * 

30  *       that    has    been    depressed.  * 

31  *  */ 
32 

33  vgge t f sw( abp) 

34  int  abp;  //   2  word  buffer 

35  t 

36  int  *bp; 

37  if(nbp==0)  return(-6); 

38  bp  =  abp; 

39  vgpio(Svg_fs,FNSW_READ) ;  //  get  function  switch  values 

40  *(bp++)  =  vg_fs; 

41  #bp  =  vg_fs2; 

42  } 
43 

44 
45 
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46 
47 

48  /*  * 

49  *       Calculate     the    refresh    rate    and    sent     the    value     to     the    vector  * 

50  *       general.       The    value    sent    must    be    an    integer    between    0    and    9  * 

5 1  *  */ 
52 

5 3  v gc  lock(rate) 

54  lut    rate;  //       refresh   rate     in    her.tz 

55  C 

56  rate    =     120/rate: 

57  vgpio<3r ate, CTRL- WRITE) ; 

58  } 


vgusr . c 


1  •*  include     "vgdef.h" 

2  ^include     "vgglob.h" 

3  # Include     "vgreg.h" 
4 

5  /*  * 

6  *       character    read    routine  » 

7  *       Returns     the    oldest    keyboard    character     in    the    character    queue.  *■ 

8  #        If    no    character    has    been     input    return    — 1 .  tf 

9  *  * 

10  *       NOTE:  The    character     is     filled    by    a    keyboard  >': 

11  #       character     interrupt    causing   vgkpiv()     to    be    called.  * 

12  *  #/ 
13 

14  vgge  tear ( ) 

15  t 

16  if(vgkflag    ==    0)     return!-!); 

17  vgkf lag — ;  //    removed    one    character 

18  if(vgkquefl     ==    NKOUE)     vgkque fl    =    0; 

19  re turnt vgkque [ vgkque fl  +  +]>>8)  ; 

20  ) 
21 

22 
23 
24 
25 

26  /*  •  * 

27  #   Set/clear  the  blink  mode  on  the  picture,  object,  or  element.      * 

28  *  */ 
29 

30  vgb 1 ink( type , nura, ac t ion) 

31  char  type;  //   0  -  picture 

32  //       1  -  object 

33  //   2  -  element 
34 

35  int  num;  //      0  -  picture 

36  //   object  or  element  num 
37 

38  char  action;  //   0  -  clear 

39  //   1  -  set 

40  f 
41 

42  swi  tch(  type) 

43  C 

44  case  PIC:  //   SET/CLEAR  blink  picture 

45  C 

46  re  turn ( vgplcmodC 01000, action))  ; 

47  ) 

48  case  OBJ:  •/   SET/CLEAR  blink  on    object  'num' 

49  G 

50  return(  vgobjtnod(  nura,01C00,actlon))  ; 

51  3 

52  case  ELE:  //   SET/CLEAR  blink  on  element  'num' 

53  ( 
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54  re  turnt  vge  lomod(  num.  0  1000  ,  ac  Hon)); 

55  } 

56  ) 

57  ) 
58 

59 
60 
61 
62 

63  /*  * 

64  *       Modify    the    rotation    matrix    of     the    object.        The    return    values  * 

65  *       are     those    of     the    object    modification    routine.  * 

66  *  #/ 
67 

68  vg.ro  ta  te  <  num,  x,  y,  z) 

69  int    num;  //       object    number 

70  double    x;  //       radian    rotation    about    X-axis 

71  double    y;  //       radian    rotation    about    Y-axis 

72  double    v.;  //       radian    rotation    about    Z-axis 

73  C 

74  doub  1  e    sinO  ; 

75  doub le    cos ( ) ; 

76  double    s 1 nx, s i ny , s inz , cosx, cosy , cosz ; 

77  sinx    =     sin(x); 

78  siny    =    sin(y); 

79  s  i  dz    =    sin(z) : 

80  cosx    =    cos(x); 

81  cosy   :    cos(y); 

82  cosz    =    cos(z) ; 

83  vgf_rotr03     =     (cosz*cosy   -    s inx*s iny*s Inz) #2047 ; 

84  vgf_rottl]     =     (cosy*sinz    +    s  inx*s  iny*cosz)  #2047  ; 

85  vgf_rot[2]  =  -siny#cosx*2047; 

86  vgf_rot[3]     =    -siuzScosi:-2G47; 

87  vgf_rot[4]     =    cosx*cosz*2047; 

88  vgf_rot[5]     =    siux*2047; 

89  vgf_rot[6]     =    (siny*cosz    +    s  lnx*cosy*s  Inz)  #2047 ; 

90  vgf_.ro  t[  73     =     (siny*sinz    -    s inx*cosy#cosz) #2047 ; 

91  vgf_rot[8]    =    cosx#cosy*2047; 

92  re t urn( vgobjmod ( num, 0 1 ) ) ; 

93  ) 
94 

95 
96 
97 
98 

99  /%  # 

100  *   Modify  the  X,  Y,  and  Z  coordinates  of  the  object.   The  range     * 

101  *   of  values  are  from  -2043  (0177777)  through  2047  (07777).  * 

102  #   The  return  codes  are  those  of  the  object  modification  routine.   * 

103  *  */ 
104 

105  vgcoord  (  nura,  x,  y,  z) 

106  int    num;  //       object    number 

107  int    x;  //      X   coordinate 

108  int    y;  //       Y   coordinate 

109  int    z;  //       Z    coordinate 

110  C 

111  vgf_dxr    =    x; 

112  vgf_dyr    =    y; 

1 13  vgf_dzr    =    z ; 

114  re  t urn( vgobj  mod( num, 04) )  ; 

115  3 
116 

117 
118 
119 
120 

121  /*  * 

122  *       Modify    the     intensity    offset    of     the    object.        The     range    of    values    * 

123  #        is     from    0    to     1.        The    return    codes    are     those    of     the    object  * 

124  #       modification    routine.  # 

125  *  *' 
126 

127    vglo f se t ( num, va 1 ) 

123  int    num;  //      object    number 
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* 

range    of    values 

:•: 

the    objec  t 

* 

T- 

129  double    va  1  ;  //       intensity   offset    value 

130  C 

131  vgf_ior    -    va 1*2047; 

132  re  t  urn(  vgobjmodt  mini,  ©10)  )  ; 

133  3 
134 
135 
136 
137 
130 

139  /* 

140  =('   Modify  the  intensity  scale  of  the  object.   The 

141  *   is  from  0  to  1 .   The  return  codes  are  those  of 

142  *   modification  routine. 

143  * 
144 

145  vglsca 1 ( num. va 1 ) 

146  int  num;  //       object  number 

147  double  va  1  ;  //   Intensity  scale 

148  f 

149  vgf.isr    =    va 1*2047? 

150  re  turnt  vgobjrnodt  nutn,  020)  )  ; 

151  3 
152 

153 

154 

155 

156 

157    /*  * 

150       *       Modify    the    coordinate    scale    of     the    object.        The    range    of    values    # 

159  *       are    0    to     1.        The    return    codes    are     those    of     the    object  % 

160  *       modification    routine.  * 

161  *  #• 
162 

163  vgcsr ( num , va 1 ) 

164  int  num;  •      //      object  number 

165  double  va  1  ;  //       coordinate  scale  value 

166  ( 

167  vgf_csr  =  va 1*2047; 

168  re turnt vgobjmod ( num, 02) ) ; 

169  ) 
170 

171 
172 
173 
174 

175  /%  * 

176  *   Set /clear  the  light  pen  hookability  of  the  object  or  element     * 

177  *   The  light  pen  halt,  light  pen  interrupt,  :\nd     light  pen  sense     * 

178  *   switch  are  all  treated  as  a  single  unit  to  be  set/cleared.        * 

179  *   Return  codes  are  those  of  the  modification  routine  concerned, 

180  *  */ 
181 

182  vglpen( t ype , num, ac I  ion) 

183  char  type;  //   1  -  object 

184  //      2  -  e  Lenient" 
185 

186       int  num;  //   object  or  element  number 

187 

188  char  action;  //      0  -  clear 

189  //       1  -  set 

190  C 

191  switch(type) 

192  C 

193  case  OBJ:  //  set/clear  object 

194  C 

195  re  turn ( vgobjmod( num, 020400, ac  t Ion) )  ; 

196  3 

197  case  ELE:  //  set/clear  element 

198  C 

199  re  turnt vge lemod ( num, 020400 .action))  ; 

200  3 

201  ) 

202  return(O); 

203  ) 
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204 

205 
206 
207 
208 

209  /#  * 

210  *   Get  the  light  pen  interrupt  registers.   The  light  pen  * 

211  *   interrupt  flag  is  cleared  so  another  light  pen  interrupt  may     * 

212  *   be  accepted  by  the  light  pen  interrupt  handler.  * 

213  *  */ 
214 

215  vgge t lpn( abp) 

216  int  abp;  //   8  word  buffer  pointer 

217  C 

218  int  *bp; 

219  int  1; 

220  bp  =  abp; 

221  fort i=0; i<7; i++) 

222  *(bp++)  =  vglpbuf [ 13 ; 

223  vglpflag  =  0; 

224  ) 
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